


Ve 7e 
ne PIEROT 








MATÉRIEL 


GRAPHISME 
EN ASSEMBLEUR 
SUR AMSTRAD CPC 





CONNAISSEZ-VOUS TOUTE LA COLLECTION AMSTRAD 
CHEZ P.S.L. ? 





Pour les Amstrad CPC 464, 664 et 6128 : 





Initiation : 


— La découverte de l’Amstrad - Daniel-Jean David 
— Exercices en BASIC pour Amstrad - Maurice Charbit 


Programmation BASIC : 


— 102 programmes pour Amstrad - Jacques Deconchat 

— Super jeux pour Amstrad - Jean-François Sehan 

— Amstrad en famille - Jean-François Sehan 

— Super générateur de caractères sur Amstrad - Jean-François Sehan 

— Photographie sur Amstrad et Apple Il - Pierrick Moigneau et Xavier de la Tullaye 
— Amstrad en musique - Daniel Lemahieu 

— Trois étapes vers l'intelligence artificielle sur Amstrad CPC - René Descamps 


Maîtrise du BASIC : 


— BASIC Amstrad - 1. Méthodes pratiques - Jacques Boisgontier et Bruno Césard 
— BASIC Amstrad - 2. Programmes et fichiers - Jacques Boisgontier 

— BASIC Plus : 80 routines sur Amstrad - Michel Martin 

— Périphériques et fichiers sur Amstrad - Daniel-Jean David 


Langages : 


— Assembleur de l'Amstrad - Marcel Henrot 

— Création et animations graphiques sur Amstrad CPC - Gilles Fouchard et Jean-Yves Corre 
— Clefs pour dBASE Il et Il - Michel Keller 

— Turbo Pascal sur Amstrad - Pierre Brandeis et Frédéric Blanc 


Système 


— Clefs pour Amstrad - 1. Système de base - Daniel Martin 
— CP/M Plus sur Amstrad 6 128 et 8256 - Yvon Dargery 
— Clefs pour Amstrad - 2. Système disque - Daniel Martin et Philippe Jadoul 


A paraître : 


— Intelligence artificielle : langage et formes sur Amstrad - Thierry Lévy-Abégnolli et Olivier 
Magnan 
— Clefs pour Amstrad 8256 - Eric Baumarti 


Pour tout problème rencontré dans les ouvrages P.S.I. 
vous pouvez nous contacter au numéro ci-dessous : 


Numéro Vert/Appel Gratuit en France 


05 21 22 01 


(Composer tous les chiffres, même en région parisienne) 





La loi du 11 mars 1957 n'autorisant, aux termes des alinéas 2 et 3 de l’article 41, d’une part, que 

les « copies ou reproductions strictement réservées à l'usage privé du copiste et non destinées à 

une utilisation collective », et, d'autre part, que les analyses et les courtes citations dans un but 

d'exemple et d'illustration, « toute représentation ou reproduction intégrale, ou partielle, faite sans 

Be Se UE de l'auteur ou de ses ayants droit ou ayants cause, est illicite » (alinéa 1°" de 
article 4 


Cette représentation ou reproduction, par quelque procédé que ce soit, constituerait donc une 
contrefaçon sanctionnée par les articles 425 et suivants du Code Pénal. 


© Éditions du P.S.I. - B.P. 86 - 77402 Lagny/Marne cedex 
1986 


ISBN 2-86595-340-8 


MATÉRIEL 





GRAPHISME 
EN ASSEMBLEUR 
SUR AMSTRAD CPC 


FRANCIS PIEROT 


Francis PIEROT a 23 ans. || pratique la micro-informatique depuis 1979. 
Ses études en Informatique et son goût pour l'écriture l'ont aiguillé sur le 
chemin des magazines spécialisés. Après avoir collaboré à des revues 
d'informatique, il a rejoint le milieu de l'édition de logiciels. Il a notamment 
dirigé la réalisation de METRO 2018 sur Amstrad. 


Ses passions : la science-fiction, les jeux de rôles, la musique, et la 
micro-informatique. 


Amstrad Amdos et Amstrad CPC 464, 664 et 6128 sont des marques 
déposées de Amstrad Consumer Electronics. 


Sommaire 


Introduction 


Chapitre 1 Les caractéristiques graphiques de l'Amstrad 


L'organisation matérielle 
Instructions graphiques 


Chapitre 2 Utilisation du langage machine sous Basic 


Assembleur et langage machine 
Les outils du programmeur 
Programmation du Z-80 
Instructions du Z-80 
Assembleur et Basic 


Chapitre 3 Les routines graphiques du système 


Système d'exploitation 
Tracé de cercles 

Tracé d'histogrammes 
Remplissage des zones 


11 


12 
23 


6 |! GRAPHISMES EN ASSEMBLEUR SUR AMSTRAD 


Chapitre 4 L'accès direct à la mémoire écran 


Objets graphiques 

Structure de la mémoire écran 
Restitution des objets 

Routine de restitution 

Routine de mémorisation 
Remarques 


Chapitre 5 Codage des objets graphiques 


Pourquoi compacter ? 
Méthodes de compactage 
Algorithme de compactage 
Décompactage 


Chapitre 6 Déplacements par calcul d'adresses 


Gestion du joystick 
Déplacements par calcul d'adresses 


Conséquences de la structure de la mémoire écran 


Chapitre 7 Gestion des objets sur un décor 


Problèmes de déplacement 
Le mode XOR 
Transparence 

Problèmes de rapidité 
Gestion des avant-plans 


Chapitre 8 Système de coordonnées 


Quel système de coordonnées ? 
Territoires interdits et collisions 
Routine de déplacement automatique 


Chapitre 9 Création des objets et décors 


Programme de création de dessins 
Création de décor 
Compactage de phases d'animation d’un objet 


Annexe 1 Les mathématiques de l'informatique 
Annexe 2 Les adresses systèmes utiles 

Annexe 3 Couleurs et masques 

Annexe 4 Carte mémoire Amstrad 

Annexe 5 Carte mémoire des routines 


Liste des programmes du livre 
Emplacement des routines LM du livre 
Variables globales 


127 


128 
129 
131 
148 


163 


165 


166 
166 
168 
174 


179 


180 
182 
184 


189 


190 
191 
195 
199 
199 


207 


208 
208 
220 


229 


230 
241 
243 


247 
255 
259 
262 
265 


265 
267 
268 


GRAPHISMES EN ASSEMBLEUR SUR AMSTRAD 1! 7 


Annexe 6 Structure écran de l'Amstrad 
Annexe 7 Le jeu d'instruction du Z-80 
Annexe 8 Lexique et Index 

Annexe 9 La disquette d'accompagnement 
Conseils de lecture 


270 
275 
283 
293 
297 


Introduction 


Tout amateur de micro-informatique, une fois franchie la limite du Basic, 
se retrouve face à un mur épais qu'il parvient difficilement à percer. Ce mur 
indestructible sépare le monde des programmeurs spécialistes de celui des 
amateurs. Ses ingrédients : musique, graphisme, langage machine. Trois 
obstacles infranchissables pour celui qui ne veut pas passer sa vie à 
programmer des jeux. 


C'est la raison d'être de cet ouvrage. Vous yÿ trouverez, outre un grand 
nombre d'informations concernant le graphisme sur Amstrad, un ensem- 
ble de routines détaillées, de méthodes de travail vous permettant de gérer 
des graphismes sur Amstrad, à la manière des programmeurs spécialisés. 


Le but de ce livre est double. Il aborde tous les problèmes de la gestion 
du graphisme sous un angle pédagogique. Les étapes de la création des 
routines sont clairement expliquées, et les routines proprement dites 
dûment commentées. Il est possible d'utiliser les routines sans se forcer à 
lire la totalité des explications, mais il est aussi possible de s'initier à leur 
utilisation en progressant page par page. 


Même si la lecture de l'ouvrage ne vous donne pas la connaissance 
absolue et instantanée de tous les mystères du graphisme sur Amstrad (qui 
pourrait prétendre les connaître tous ?), il est fort probable qu'elle provo- 
quera le déclic, le : “Ça y est, j'y suis !” qui donne envie d'aller plus loin. Et 
en micro-informatique, l'envie de progresser est le début de la connais- 
sance. 


Une dernière mise en garde s'impose toutefois : ce livre n'est pas destiné 
à vous enseigner le langage machine, mais il peut vous apprendre à 
l'appliquer efficacement. Toutefois, l'utilisation des routines ne nécessite 
pas sa connaissance. C'est pourquoi, un chapitre entier a été consacré au 
langage machine et à son utilisation sous Basic. Le chapitre en question 
familiarisera avec l'assembleur ceux qui ne le pratiquent pas encore. 
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Enfin, bien que l'utilisation d'un programme assembleur soit hautement 
recommandée, toutes les routines seront fournies sous deux formats : 
listing assemblé, pour programmer directement en assembleur, et pro- 
gramme Basic avec liste de DATA pour ceux qui ne possèdent pas 
d'assembleur. Les routines seront donc accessibles à tous. 


Pour des raisons de commodité, les annexes 1 et 7 sont tirées de 
l'ouvrage d'Alain Pinaud Programmer en Assembleur paru aux Editions du 
P.S.I. 


LES CARACTÉRISTIQUES 
GRAPHIQUES | 
DE L'AMSTRAD 


L'Amstrad n'est pas exceptionnellement doué pour le graphisme, mais il 
ède quelques particularités originales et intéressantes. 
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L'ORGANISATION MATÉRIELLE 


Les circuits 


Amstrad se ditingue au premier abord par son contrôleur vidéo. Tandis 
que les autres constructeurs emploient des processeurs vidéo, avec tracé 
de ligne incorporé ou gestion d'une mémoire écran indépendante, Ams- 
trad a choisi une attitude radicalement différente. Le circuit utilisé est un 
CRTC HD 6845. CRTC signifie Cathode Ray Tube Controler, soit contrôleur 
de tube cathodique. Son rôle est de transformer le contenu de la mémoire 
écran en signal pour l'écran. L'utilisation du 6845 est peu banale en micro- 
informatique familiale : en fait, le micro-ordinateur le plus connu utilisant 
ce circuit pour l'affichage est l'IBM-PC. On ne peut pas réellement parler 
d'ordinateur familial. 


L'utilisation de ce circuit prend toute sa dimension lorsqu'on constate 
que, malgré sa rusticité, le contrôleur est capable d'afficher 80 colonnes 
sans problème de lisibilité, alors que beaucoup de micro-ordinateurs ne 
peuvent pas dépasser 40 colonnes. 


De plus, pour pallier les faiblesses du 6845 (dont le seul travail est de 
générer des signaux vidéo pour le moniteur) les concepteurs de la machine 
ont fort intelligemment programmé un circuit annexe, le “Gate Array” (en 
traduction littérale, zone des portes) qui joue le rôle de bouche-trou : tout 
ce que les circuits standard de l’Amstrad ne savent pas faire, il le fait. Par 
exemple, nous devons au Gate Array la possibilité de choisir entre 27 
couleurs. Le 6845 en est incapable. Le Gate Array est l'interface entre les 
choix de l'utilisateur (les couleurs, le nombre de colonnes, la résolution 
graphique, et ainsi de suite) et le contrôleur 6845 proprement dit {schéma 
1.1). 








couleurs 






balayage 
synchro 






2-80 
PROCESSEUR 


Schéma 1.1 Organisation des éléments visualisateurs. 
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Bien que les fonctions d'affichage soient toutes disponibles dans le 
système d'exploitation sous forme de routines, il est des situations où l'on 
peut vouloir programmer directement le contrôleur vidéo ou le Gate Array. 
Ces deux circuits sont en effet accessibles au Z-80 par le biais d'instructions 
OUT. 


Le Gate Array (GA) produit les signaux vidéo et RVB pour l'écran. Il 
s'occupe également des couleurs, des stylos, des modes écran. Il dispose à 
cet effet de trois registres : un registre “stylo” (recevant les numéros de 
stylo), un registre “couleur” (acceptant un numéro de couleur) et un 
registre de commande. Nous appellerons ces registres respectivement 
STY, COU et COM. 


Le port $7F, ou 127, est dédié au GA. Comme tous les ports sur 
l’'Amstrad, $7F est la partie haute du numéro de port. Pour ÿ accéder en 
Basic, on utilisera OUT &7F00, valeur. En langage machine, il faut utiliser la 
séquence suivante : 


LD C, valeur 
LD B,+#7F 
OUT (C),C 


Cette dernière instruction OUT ne doit pas troubler le programmeur : ce 
n'est pas le registre C qui est utilisé pour le numéro de port mais B, qui est 
la partie haute de BC. 


Les registres du GA ne sont pas accessibles en lecture. On ne peut qu'y 
écrire. Cela signifie qu'il est par exemple impossible de récupérer le 
numéro de couleur associé à un stylo si on ne le mémorise pas par ailleurs. 
Si vous demandez un changement de couleur du stylo 0 par OUT en Basic, 
cette altération ne va durer qu'une fraction de seconde. En effet, le Basic 
possède sa propre table de correspondance stylo/couleur, et cette table 
est régulièrement retransmise au GA. Il est donc inutile de reprogrammer, 
sous Basic, les couleurs de stylo si l'on ne modifie pas également la table 
en question. 


Suivant la valeur binaire envoyée sur le port $7F, le GA enverra la donnée 
sur l’un des trois registres. Deux des huit bits de cette donnée sont, en effet, 
utilisés pour déterminer le registre visé. Il s'agit des deux bits de gauche : 


— une donnée de la forme O00xxxxxx sera envoyée au registre STY ; 
— une donnée de la forme 01xxxxxx sera envoyée au registre COU ; 
— une donnée de la forme 10xxxxxx sera envoyée au registre COM. 


Les six bits restants sont utilisés différemment suivant le registre. Pour le 
registre STY, ce sont normalement les quatre bits de droite qui forment le 
numéro de stylo à programmer, à moins que le cinquième bit ne soit à 1, 
auquel cas c'est la bordure de l'écran qui est visée. 


La donnée 0000xxxx placera xxxx dans le registre STY, et permettra alors 
de programmer, par un autre OUT visant COU, la couleur de ce stylo. 
L'envoi de 0001xxxx permettra de faire la même chose mais pour la 
bordure (xxxx est alors ignoré). 
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Pour le registre COU, seuls les cinq bits de droite sont utilisés afin de 
connaître le numéro de couleur visé. La couleur ainsi envoyée est associée 
au stylo dont le numéro se trouve dans le registre STY. On enverra donc la 
valeur 010xxxxx, xxxxx étant la valeur binaire de la couleur. Rappelons que 
les couleurs 27 à 31 sont identiques à cinq des autres couleurs. 


Le registre COM est plus complexe. || possède quatre fonctions, pouvant 
être demandées simultanément (bien qu'elles n'aient pas grand chose à 
voir entre elles). 


Il nous faut, pour examiner ces fonctions, numéroter les bits de la valeur 
envoyée. Nous utiliserons la notation classique b7 pour le bit 7, le plus à 
gauche, jusqu'à bO pour le bit 0, le plus à droite. 


Si b4 vaut 1, le compteur de synchronisation verticale est annulé. Ce 
compteur est utilisé pour générer l'impulsion à la base de toutes les 
interruptions de l’Amstrad. Le fait de l'annuler retarde cette impulsion, et 
permet donc de repousser dans le temps la prochaine interruption. b4 est 
d'une utilisation très puissante, puisqu'on peut grâce à lui intervenir 
directement sur tout le système d'interruption ! 


Si b3 vaut 0, les adresses $C000 à $FFFF sont connectées sur la ROM du 
système d'exploitation, sinon elles sont connectées à la RAM écran. Ceci 
concerne uniquement les accès en lecture, car lors des écritures en 
mémoire, le Z-80 émet un signal qui connecte automatiquement les RAM. 


Si b2 vaut 0, les adresses $0000 à $3FFF sont connectées sur la ROM du 
Basic. Même remarque que pour b3 : ceci ne concerne que les lectures. 


Enfin, b1b0 est utilisé pour déterminer la résolution choisie. 00 indique 
mode 0 (160 points sur 200, 16 stylos), 01 donne le mode 1 (320 sur 200, 4 
stylos) et 10 le mode 2 (640 sur 200, 2 stylos). 


Cela termine l'exposé des fonctionnalités du GA. Il nous reste le 6845. En 
l'occurrence, celui-ci peut être utilisé pour de nombreuses tâches peu 
banales. Le contrôleur 6845 possède 18 registres, et un registre de 
sélection. La programmation des registres RO à R15 se fait de la façon 
suivante : 


— sélectionner le registre en envoyant son numéro sur le port $BC. Ceci 
programme le numéro dans le registre de sélection. Seuls les cinq derniers 
bits sont pris en considération, les valeurs O0 à 17 étant les seules 
effectives ; 


— envoyer la donnée sur le port $BD. Ceci place la donnée dans le registre 
sélectionné (sauf R16/R17 qui ne peuvent qu'être lus). 


Il est également possible de lire le contenu des registres R12 à R17, de la 
même façon : envoi du numéro de registre sur le port $BC, lecture de 
donnée sur le port $BF et non $BD. 


(| 





O0 0 0 0 
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Examinons en détail les fonctions des registres : 

RO : registre 8 bits. Nombre de caractères par ligne, auquel est ajouté 
un nombre dépendant de la durée de balayage sur les bords de l'écran 
et du temps nécessaire pour le retour du faisceau en début de ligne. 


R1 : registre 8 bits. Nombre de caractères réellement affichés par ligne. 
Il s'agit de la valeur de base de ce nombre (voir ci-dessus RO). 


R2 : registre 8 bits. Position horizontale. Décale vers la gauche ou la 
droite l'image écran. La valeur centrale est 46. 


R3 : registre 4 bits. Ecartement des impulsions de synchronisation. 
R4 : registre 7 bits. Nombre de lignes de grille par image. Permet de 
régler la synchronisation verticale en fonction de la fréquence (50 Hz ou 
60 Hz suivant le pays). 

R5 : registre 6 bits. Ajustement du balayage vertical. 


R6 : registre 7 bits. Nombre de lignes de caractères affichées (25). 


R7 : registre 7 bits. Position verticale. Décale vers le haut ou le bas 
l'image écran. La valeur centrale est 30. 


R8 : registre 2 bits. Saut de ligne. Une valeur de 0 donne l'affichage 
normal, une valeur de 1 donne un tremblotement. 


R9 : registre 5 bits. Nombre de lignes par caractère (7). 

R10 : registre 7 bits. Attribut curseur. les bits bO à b4 indiquent la ligne 
d'écran où débute le curseur. Les bits b5 et b6 donnent le mode 
curseur : 00 curseur normal, 01 pas de curseur, 10 curseur clignotant 
rapide, 11 curseur clignotant lent. 


R11 : registre 5 bits. Ligne de fin curseur (voir R10). 


R12 : registre 6 bits. Poids fort d'adresse de début de l'écran (on y 
ajoute $C000 pour obtenir l'adresse en RAM-écran). 


R13 : registre 8 bits. Poids faible de l'adresse de début d'écran. 
R14 : registre 6 bits. Poids fort d'adresse curseur (similaire à R12). 
R15 : registre 8 bits. Poids faible d'adresse curseur (similaire à R13). 


R16 : registre 6 bits. Poids fort adresse écran lorsque le stylo optique 
émet son signal. 


R17 : registre 8 bits. Poids faible adresse écran pour stylo optique (voir 
R16). 
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La mémoire écran 


Avant toute chose, parlons de la mémoire écran. L'Amstrad, si doué soit- 
il, ne peut pas afficher une information qu'il ne possède pas en mémoire. Il 
faut donc que l'écran soit stocké quelque part, si possible à un endroit 
directement accessible par l'utilisateur. De cette façon, il est possible de 
modifier le contenu de l'écran en changeant simplement son image en 
mémoire. Sur certaines machines, la mémoire écran n'est accessible qu’au 
processeur vidéo, et il faut lui demander explicitement de modifier cette 
mémoire pour en avoir le droit. 


Application concrète : la mémoire écran de l'Amstrad est située aux 
adresses mémoire de 49152 à 65535. Pour être plus près de la machine, 
nous pouvons également dire entre C000 et FFFF hexadécimal. Elle est 
constituée de 16 Ko de mémoire (soit 16384 adresses, 4000 en hexadéci- 
mal) qui constituent la totalité de l'image écran. Vous pouvez d'ailleurs le 
constater très simplement en exécutant le programme 1.1. 


LD HORDE EEE EDEN DEN DEEE 

20 ‘xx Frogramme 1.1  ** 

TR HOMME MEHR EE 

4Q@ 

50 MODE 1i 

&6@ INE 5,2 

78 contenu=255 

80 FOR adresse=?2C000 TC &FFFF 


9@ POKE adresse,contenu 
10Q NEXT adresse 
118 END 


La ligne 50 est vitale : nous rencontrerons souvent l'instruction MODE. 
Elle indique en effet à l'ordinateur (plus exactement au fameux Gate Array) 
à quel type de résolution correspond le contenu de la mémoire écran. Le 
mode 1 indique qu'il s'agit du mode 40 colonnes, soit 320 points 
graphiques en largeur (8 points par colonne). 


La ligne 60 range la valeur 255 dans la variable CONTENU. Ce contenu, 
nous allons le placer dans toute la mémoire écran grâce à l'instruction 
POKE de la ligne 80 et à la boucle l'encadrant. 


Après RUN, vous constatez que tout l'écran se remplit de blanc, point par 
point. Vous constatez aussi que les lignes successives de tracé ne sont pas 
dans l’ordre : une ligne est remplie, puis une ligne un peu plus bas, ainsi de 
suite : et le processus se reproduit ensuite à partir du haut de l'écran, 
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décalé d'une ligne. Nous verrons plus loin l'explication de ce phénomène. 
Pour l'heure, nous avons constaté que, sans utiliser la moindre instruction 
graphique, nous avons rempli l'écran point par point, en modifiant 
simplement le contenu de la mémoire écran. 


Cette mémoire, nous l'avons vu, occupe 16 Ko. La place n'est ni 
extensible, ni réductible. Quelle que soit la résolution choisie, l'écran est 
toujours représenté par ces 16 Ko, ni plus, ni moins. Pourtant, le mode 0 ne 
permet de disposer que de 32 000 points (160 par ligne et 200 lignes), 
tandis que le mode 1 et le mode 2 possèdent respectivement 64 000 et 
128 000 points. 


Mais il faut un certain nombre d'octets pour mémoriser un point. À 
raison d'un octet par point, il faudrait 32 Ko de mémoire uniquement pour 
Je mode 0, et 128 Ko pour le mode 2. Comment se contenter de ces 16 Ko 
pour avoir le même nombre de points ? Vous avez pu remarquer, dans la 
documentation Amstrad, que le nombre de couleurs simultanées à l'écran 
variait suivant le mode de résolution : 16 en mode 0, 4 en mode 1 et 
seulement deux en mode 2. Pourquoi ? 


Quel que soit le mode, nous venons de constater qu'on ne peut pas 
réserver un octet par point : il n'y a pas assez de mémoire écran. En 
revanche, nous pouvons coder plusieurs points par octet, en utilisant les 
bits (les débutants peuvent consulter l'annexe 8 pour se familiariser avec 
les octets, bits et autres notions binaires). Il ÿ a en effet 8 bits par octet. 


Si nous utilisons des groupes de 4 bits, nous pouvons stocker deux 
points par octet. Cela nous donne 16 000 octets utilisés qui permettent 
effectivement de stocker 32 000 points. Mais dans ce cas, chaque informa- 
tion correspondant à un point est formée de 4 bits, ce qui autorise 16 
valeurs (2 exposant 4). En conclusion, il est possible de donner, dans ce 
cas, 16 valeurs différentes à un point. Nous avons donc 160*200 points, et 
16 couleurs simultées. Les 16 couleurs sont représentées par une valeur 
allant de 0 à 15 en mémoire écran. 


x 


En mode 1, nous divisons les octets par groupe de 2 bits, de façon à 
stocker 4 points par octet. Deux bits permettent 4 valeurs différentes, nous 
ne pourrons donc avoir que 4 couleurs simultanées à l'écran. 


Enfin, en mode 2, un point est représenté par un bit unique, ce qui ne 
permet que 2 valeurs distinctes, donc 2 couleurs. 
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Le codage des points en mémoire écran 


Ces limitations sont plus ou moins gênantes. En effet, il aurait été très 
agréable de pouvoir disposer de 16 couleurs en 320+200 points, ce qui 
représente un bon compromis graphique. Mais dans ce cas, il aurait fallu 
consacrer 32 Ko de mémoire à l'écran, et il ne serait plus resté que 32 Ko 
pour les programmes au lieu de 48 Ko. L'affichage aurait été plus lent, 
puisqu'il y aurait eu deux fois plus d'informations à traiter. 


Dans une certaine mesure, la limitation à 2 couleurs en mode 80 
colonnes n'est pas gênante : pour un jeu, ce mode n'est pas utilisable, et la 
couleur est inutile pour un traitement de texte. En mode 0, 16 couleurs sont 
suffisantes, et l'on peut choisir ces 16 couleurs dans l'éventail des 27 
disponibles. En jouant sur les demi-teintes et les nuances, on arrive à 
pallier le manque de points et on obtient tout de même des graphismes 
honorables. Quant au mode 1, il est presque parfait pour les jeux plus 
textuels (jeux d'aventure entre autres), et il convient parfaitement aux 
applications graphiques plus professionnelles (histogrammes, camem- 
berts...) sur lesquelles nous reviendrons. 


Mais les choses ne sont pas aussi simples. Le circuit 6845 et le Gate Array 
gèrent 16 Ko de mémoire 50 fois par seconde ! Pour éviter les problèmes, 
le codage des points en mémoire écran a été optimisé. Vous avez déjà 
constaté lors de l'exécution du programme 1.1 que les adresses succes- 
sives en mémoire ne se suivaient pas sur l'écran. En fait, cela est dû à une 
astuce technique qui permet de synchroniser plus facilement le balayage 
de l'écran et le rafraîchissement de l'écran. Cette astuce évite, entre autres, 
la présence de traits noirs parasites lors des modifications de la mémoire 
écran. Elle donne une qualité graphique et une propreté d'écran remarqua- 
bles, mais nous verrons vite à quel point elle complique la tâche du 
programmeur. 


Le codage des points en mémoire est, lui aussi, passé à la moulinette de 
l'optimisation. En effet, les bits propres à chaque point codé dans un octet 
de la mémoire sont enchevêtrés (techniquement, on dit aussi qu'ils sont 
entrelacés). Si nous numérotons les bits d’un octet de 7 à 0 (en partant du 
bit situé le plus à gauche, le plus significatif en terme binaire), voici où sont 
situés les points, suivant le mode. 


Ü MODE 0 : le point à gauche est stocké dans les bits 1,5,3 et 7 le point à 
droite dans les bits 0,4,2 et 6. 


DO MODE 1 : le point le plus à gauche dans les bits 3 et 7 puis 2 et 6, puis 1 
et 5. Le point le plus à droite dans les bits 0 et 4. 


O MODE 2 : le point le plus à gauche dans le bit 7, puis dans les bits 
6,5,4,3,2,1 et le point le plus à droite dans le bit O. 


Seul le mode 2 suit une certaine logique. Le mode 1 est quant à lui 
totalement anarchique, en apparence bien entendu {schéma 1.2. v. p. 19). 
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Mode 0: 
1 octet = 2 points 






point de droite 


point de gauche 


MODE 1: 
1 octet — 4 points 
point de droite 


point de gauche 


MODE 2: 
1 octet = 8 points 
point le plus à droite 





point le plus à gauche 


Schéma 1.2 Les huit bits des octets en mémoire écran. 
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Il est pourtant essentiel de se familiariser avec ces codages. En effet, une 
grande partie des opérations sur l'écran exécutées dans ce livre nécessite 
cette connaissance. 


Prenons un exemple en mode 1. Les couleurs disponibles dans ce mode 
sont codées, en mémoire écran, en utilisant les valeurs 0 à 3, soit les 
valeurs 00, 01, 10 et 11 en binaire. 


Si nous voulons allumer les quatre points d'un octet particulier (par 
exemple celui situé en CAO00 hexa, que nous noterons désormais $CA00) 
dans les quatre couleurs successives, voici la marche à suivre. 


Le premier point est en couleur 00 : les bits 3 et 7 de l’octet devront donc 
être mis à zéro. Le second point aura la couleur 01 : bit 2 à zéro, bit 6 à un. 
Ensuite, nous devons mettre 1 au bit 1 et O0 au bit 5 pour avoir la couleur 10 
au troisième point, et enfin mettre les bits 0 et 4 à un. Cela se résume en 
une instruction Basic : 


POKE &CA00,&X01010011 


Si vous effectuez cette instruction, un petit amalgame apparaît sur 
l'écran. Les points sont trop proches pour qu'on puisse véritablement le 
constater, mais il y a effectivement un point de la couleur 0 (le fond, donc 
on ne le voit pas !), un autre en couleur 1, puis en couleur 2, puis en couleur 
3. Tout cela en un seul octet. 


La manipulation, pour le moins complexe, décrite ci-dessus vous donne 
un aperçu des problèmes de programmation entraînés. Et encore ne 
s'agissait-il que d’un octet. Le programme 1.2 réalise un remplissage 
sélectif de l'écran, suivant vos directives. 


1Q HE MJE DEEE EX 

26 ‘*+* Programme 1.2  #*# 

ZD HIHI IEEE IE DEN JE JE DEN 

40 ‘ 

50 FOR i-=0 TO 3:INK 1i,1ix5:NEXT 

68 MODE 1:REM mode 320x200, 4 couleurs 

78 DIM point(3) ,puissance(7) 

80 ‘memorisation des puissances de 2. 

90 FOR bit=0 TO 7: READ puissance(bit): NEXT bit 
100 DATA 1,2,4,8,16,32,64,128 

110 ‘ 

12@ ‘choix des couleurs des quatres points 
130 

148 FOR p=0 TO 3 

150 PRINT "Point numero“;p 

160 INPUT "Couleur (@ a 3) "“;point(p) 
17Q@ NEXT p 

180 ‘ 
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19Q@ ‘calcul de l'octet representant ces 4 points 

200 ‘ 

210 FOR p=@ TO 3 

220 READ biti,bitZ:REM numero des bits du point 

236 ‘poids fort de la couleur dans le premier bi 
t 

240 contenu=contenu+puissance(biti)+INT (point {(p) 
/2) 

258 ‘poids faible de la couleur dans le second b 
it 

268 contenu=contenu+puissance(bit2)x(point(p) AN 
D 1) 

278 NEXT p 

280 DATA 5,7,2,6,1,5,4,0 

290 ‘ 

500 ‘remplissage de la memoire par ce contenu 

5186 ‘ 

32086 CLS 

350 FOR adresse=tC000 TO &FFFF 

540 PFOKE adresse,contenu 

350 NEXT adresse 


Le plus gros du travail est effectué entre les lignes 200 et 270, où le choix 
de l'utilisateur est transformé en octet. Cette transformation suit les 
principes expliqués plus haut, concernant le codage en mode 1. 


Lorsque nous aurons à gérer ces structures complexes de bits dans des 
routines en langage machine, il va de soi que nous devrons optimiser leur 
traitement. En règle générale, les routines travailleront en mode 0, ce qui 
assure une gestion plus simple qu’en mode 1 (il n’y a que deux points par 
octet dans ce mode, rappelons-le). Le choix du mode 0 assure, outre une 
gestion moins lourde des graphismes, un choix de couleurs acceptable. 


Couleurs et stylos 


Nous l'avons expliqué plus haut, un circuit spécial de l'Amstrad, le Gate 
Array, est chargé de fournir les 27 nuances de couleurs au 6845. Il est 
toutefois impossible d'obtenir ces 27 teintes simultanément à l'écran, 
puisque dans le meilleur des cas (en mode 0), chaque point de l'écran est 
programmé par une valeur choisie parmi 16 différentes. 


Il faut donc, pour utiliser les couleurs voulues, créer une table de 
correspondance entre chaque code (de 0 à 15 en mode 0, de 0 à 3 en mode 
1, et de 0 à 1 en mode 2) et chaque numéro de teinte (de 0 à 26), afin de 
savoir quelle est la teinte représentée par chaque code de la mémoire 
écran. 
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Sous contrôle du Basic, cette table est modifiée par l'instruction INK. Un 
équivalent existe en langage machine, soit sous la forme d'une instruction 
du système d'exploitation, soit en programmant directement le Gate Array 
(plus rapide, mais également plus obscur). 


A la mise en marche de l’Amstrad, l'écran est placé en mode 1 et les 
couleurs suivantes sont assignées : 


code 0 : couleur 1 (bleu foncé); 
code 1: couleur 24 (jaune vif); 
code 2 : couleur 20 (bleu pâle vif) ; 
code 3 : couleur 6 (rouge clair). 


Si vous tapez alors l'instruction INK 1,0, vous reprogrammez le Gate 
Array afin qu'il affiche la couleur 0 (noir) pour les points de la mémoire 
écran contenant le code 1. De jaune, les textes passeront alors immédiate- 
ment au noir. 


Ce principe de table de correspondance est vital lui aussi. De façon 
générale, vous pouvez considérer que le code situé en mémoire écran pour 
un point donné est le numéro d'un stylo avec lequel il a été tracé. Ce stylo, 
vous pouvez à tout moment en changer la couleur d'encre. Tout ce qui, sur 
l'écran, a été tracé avec ce stylo subira immédiatement la modification. 


Les stylos sont un léger obstacle pour la compréhension, mais ils ont 
d'énormes avantages. lIs permettent notamment d'utiliser la totalité des 27 
couleurs dans un jeu, suivant les tableaux ou les situations représentées, 
en reprogrammant, au choix, les stylos disponibles pour utiliser des teintes 
quelconques. Dans tel tableau, le rouge sera utilisé pour le stylo 1, dans un 
autre ce sera le bleu. 


Il'est notamment possible d'obtenir des effets de mouvement géométri- 
ques facilement grâce aux stylos. Le programme 1.3 est une application de 
ce procédé. 


1Q ‘HAE CHE OEM EDEN NX 
20 ‘++ Frogramme 1.7  *+ 
2 HORDE DEEE EEE IE EE 


40 

50 MODE i:DEFINT a-—-z 

68 

78 ‘tous les stylos en paie 
838 


90 FOR stylo=i TO 3: INE styio,if: NEXT styio 
180 ‘ 

11@ ‘trace invisible des ellipses 

120 ” 

130 LOCATE 1,20:FRINT"Patientez SVr..." 

148 stylo=i 
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150 FOR rayon=10 TO 1@0 STEP 5 

168 DEG 

170 MOVE 32@+rayon+30,200 

180 FOR an=@ TO 36QG STEP 8 

190 DRAW 32@+C0S (an) # (rayon+30) ,2@@+SIN (an) +#ra 
yon,stylo 

2@@ Sstylo=styloti:IiF stylo=4 THEN stylo=i 

218 NEXT 

22@ LOCATE 1,24:PRINT INT((100G-rayon)/5) 

23Q NEXT 

248 LOCATE 1,24:PRINT" = 

258 LOCATE 1,20:PRINT STRING#(20,:22);: 

260 ‘ 

278 ‘mouvement simule par modification des coule 

urs 

280 ‘ 

290 INK 1,20:INK 2,1@:INK 53,0 

308 FOR K=1i TO SGU:NEXT 

310 INK 1,10:INE 2,0:INE 3,20 

320 FOR K=1 TO Z@U:NEXT 

330 INK 1,@:INK 2,20: INK 5,10 

340 FOR K=1 TO 3SOG:NEXT 

350 GOTO 290 


INSTRUCTIONS GRAPHIQUES 


Organisation Interne 


Ce programme introduit les premières instructions graphiques : PLOT et 
DRAW. A ce niveau, l'Amstrad, malgré deux ou trois omissions regretta- 
bles, n'a rien à envier à la plupart des machines. 


Une particularité interne singularise l'Amstrad : l'interpréteur Basic, 
dans la majorité des cas, n’exécute aucune instruction de gestion de la 
machine. Par exemple, les instructions graphiques sont toutes intégrées au 
système d'exploitation et non à l'interpréteur. Dans ce cas, le Basic se 
contente d'appeler le système d'exploitation. Cette façon de procéder 
diffère radicalement des autres ordinateurs familiaux : elle ressemble plus 
à un matériel professionnel. Bien que, théoriquement, cela ralentisse 
légèrement l'exécution des programmes (ce n'est sensible qu'au niveau 
machine), il en résulte une facilité de programmation en langage machine 
assez exceptionnelle, puisque toutes les instructions graphiques sont 
disponibles sous la forme d'un CALL simple. Toutefois, ces instructions 
seront peu utilisées pour la programmation de jeux rapides, en raison de 
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leur lenteur. Elles sont cependant très intéressantes pour la réalisation de 
camemberts, histogrammes. Nous ÿ reviendrons. 


Le système de coordonnées 


Avant de nous approcher des instructions Basic disponibles, il nous faut 
examiner le système de coordonnées retenu pour l'écran. À ce niveau 
encore, les concepteurs de l'Amstrad ont adopté une attitude originale. En 
effet, quelle que soit la résolution choisie, l'écran est représenté par les 
coordonnées 0 à 639 (sur l'axe horizontal) et 0 à 399 (pour l'axe vertical). 
Cela, même si vous n'avez que 160 X 200 points. 

Cette singularité obscurcit sérieusement les premiers pas en Basic : en 
effet, le point (0,0) est toujours, quel que soit le mode choisi, celui situé 
dans le coin inférieur gauche de l'écran, et (639,399) dans le coin supérieur 
droit. En revanche, le point (3,0) est le même que (0,0) en mode 0, il est 
situé juste à côté de (0,0) en mode 1, et il est situé à trois points de (0,0) en 
mode 2! 


Pour simplifier cette organisation, nous allons introduire quelques 
définitions. 

Nous appellerons point logique un point dont les coordonnées sont 
représentées par les coordonnées (0,0) à (639,399). En revanche, nous 
désignerons par point physique un point unique sur l'écran, existant 
réellement. En mode 0, les points physiques auront les coordonnées (0,0) à 
(159,199). En mode 1, ce sera (0,0) à (319,199) et (0,0) à (639,199) en mode 2. 


Il y a 8 points physiques pour un point logique en mode 0, 4 en mode 1, et 
2 en mode 2 {schéma 1.3) 


Î multiple de 4, j multiple de 2 











(Gi, +7) Ki+1,j+0(+2,j+0)(i+3,j+1) 


(+1, j) | (+2, j) | (+8 j) 
MODE 0 : 8 points logiques 


ee 5 > MODE 1: 4 points logiques 


MODE 2 : 2 points logiques 








Schéma 1.3 Les points graphiques logiques 
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Le point physique (0,0) correspond en effet aux points logiques sui- 
vants : 


O MODE 0 : (0,0),(0,1),(1,0),(1,1),(2,0),(2,1),(3,0),(3,1) ; 
O MODE 1 : (0,0),(0,1),(1,0),(1,1) ; 
O MODE 2 : (0,0),(0,1). 


Les instructions graphiques de l'Amstrad utilisent toutes les coordon- 
nées de points logiques. Certaines doivent disposer des coordonnées des 
points, d’autres travaillent à partir du nombre de points. Dans ce cas, il faut 
compter le nombre de points logiques et non physiques. 


Les instructions et fonctions graphiques 


Les plus importantes instructions Basic sont PLOT, DRAW, MOVE ainsi 
que PLOTR, DRAWR et MOVER. Il y a également les fonctions XPOS et 
YPOS ainsi que TEST et TESTR. Nous allons étudier leur fonctionnement. 


O PLOT est l'instruction commune à toutes les machines : elle permet de 
modifier la couleur d’un point logique de l'écran. Par exemple, “PLOT 
319,199,1” donne la couleur du stylo 1 au point situé au milieu de 
l'écran. Petit rappel : quel que soit le mode de résolution choisi, 
(319,199) est en effet au milieu de l'écran, puisque les coordonnées vont 
de (0,0) à (639,399). En revanche, si vous effectuez cette instruction dans 
les trois modes, vous pouvez aisément constater que la taille du point 
diffère. Pour être précis, le point garde la même hauteur mais il est deux 
fois moins large en mode 1 qu'en mode 0, et deux fois moins en mode 2 
qu'en mode 1. 


O DRAW trace une droite dans une couleur donnée jusqu'à un point 
indiqué, cela à partir du dernier point tracé. Ainsi, après le PLOT ci- 
dessus, “DRAW 0,0,2" trace une droite du milieu de l'écran au coin 
inférieur gauche, cela dans la couleur du stylo 2. 


L'omission du numéro de stylo provoque l'utilisation du dernier stylo 
utilisé pour un tracé graphique. Cette particularité discrète permet d'opti- 
miser la taille des instructions graphiques dans les programmes Basic : en 
effet, il suffit, avant tous les traitements dans une couleur donnée, de 
positionner le stylo utilisé par un PLOT “bidon”, par exemple “PLOT 
800,800,stylo”. Le point (800,800) n'est pas sur l'écran, il n'est donc pas 
allumé, mais la couleur est bel et bien sélectionnée. Ensuite, on omettra 
volontairement le numéro de stylo derrière les instructions graphiques. 


DO MOVE est un peu l'équivalent de PLOT, mais sans tracé : il permet de 
positionner le curseur graphique (coordonnées du dernier point tracé) 
sur n'importe quel point de l'écran. Effectuez par exemple les deux 
séquences suivantes pour constater la différence (schéma 1.4 v. p. 26). 
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SEQUENCE 1: 





(D | PLOT 319,199,1 







@]| MOVE 00 LE 





@) |  DRAW 100,100 







SEQUENCE 2: 
® 
@ 
Schéma 1.4 MOVE et DRAW. 
Séquence 1 Séquence 2 
MODE 1 MODE 1 
PLOT 319,199,1 PLOT 319,199,1 
MOVE 0,0 DRAW 100,100 


DRAW 100,100 


D PLOTR, DRAWR et MOVER correspondent exactement à PLOT, DRAW et 
MOVE, mais au lieu des coordonnées d'un point cible, c'est un 
déplacement qui est utilisé. Pour l'illustrer, voici à nouveau deux 
séquences, relativement identiques, d'effet pourtant bien différent. 


Séquence 1 Séquence 2 
MODE 1 MODE 1 
PLOT 319,199,1 PLOT 319,199,1 


DRAW 100,100,2 DRAWR 100,100,2 


CARACTÉRISTIQUES GRAPHIQUES 1 27 


CO XPOS et YPOS : ces fonctions renvoient la valeur du curseur graphique. 
Si vous effectuez “PRINT XPOS,YPOS” après les deux séquences 
précédentes, vous obtiendrez les valeurs suivantes : 100 100 pour la 
première séquence, 419 299 pour la seconde. 


CO TEST {x,y) : cette fonction renvoie le numéro de stylo correspondant à la 
couleur du point indiqué. 


O TESTR fonctionne comme TEST, mais le point à tester est exprimé en 
nombre de points le séparant de la position actuelle du curseur. 


Utilisation des instructions et des fonctions 


Dans la pratique, ces fonctions et instructions graphiques ne sont guère 
utilisées en langage machine, sauf par exemple pour la mise en place de 
décors particulièrement géométriques. Mais elles sont beaucoup trop 
lentes pour autoriser une exploitation efficace dans un jeu d'action rapide. 
En revanche, elles ont une qualité non négligeable : elles ignorent les 
erreurs sans perturber le fonctionnement des programmes. Mieux, les 
coordonnées sont toujours prises en compte, même si elles sortent de 
l'écran. Enfin, la plus grande qualité de ces instructions est leur fonctionne- 
ment par système de coordonnées. Les instructions du système d'exploita- 
tion qui leur sont associées utilisent le même système, et cela reste 
essentiel pour réaliser des graphismes à base de motifs géométriques. 


Ainsi, vous constaterez aisément que “PLOT 0,0,1” suivie de “DRAW 
800,800” trace une droite traversant l'écran, bien que (800,800) soit 
logiquement en dehors de celui-ci. La droite générée est pourtant celle qui 
rejoindrait effectivement (800,800) si celui-ci existait {schéma 1.5). 





(800,800) 
7à 
/ 
/ 

ECRAN 
SIMULE 
(VIRTUEL) 
/ 


/ 
/ 
400 


ECRAN 


AFFICHE 
(REEL) 


SPLOT 0,0,1 
DRAW 800,800 








640 


Schéma 1.5 Dépassement de l'écran. 
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Tout au long de ce chapitre, vous avez pu vous familiariser avec la 
structure de l'écran et son traitement en Basic, bien que nous soyons 
volontairement restés proches de la machine. Il est toutefois évident que le 
Basic ne permet pas la réalisation de jeux rapides, quels qu'ils soient. Pour 
mettre en évidence la supériorité du langage machine, il suffit d'exécuter 
chacun des programmes concluant ce chapitre et d’en tirer les conclusions 
qui s'imposent (programmes 1.4 à 1.7). Nous avons également pris 
connaissance des instructions graphiques de base, instructions que nous 
utiliserons plus loin afin de réaliser des utilitaires de tracé de figures. Nous 
reviendrons sur ces fonctions lors de la réalisation des trois routines dans 
le chapitre 3. 


1@ “HR MRNCHHE DID DE DEEE IEEE 

28 ‘** Programme 1.4 *x 

SA HR MHHHOHNIEDE DE JEHE IE DE DE DEEE JE 

40 ‘duree 42982 (!) ; 
a ‘remplissage de l'ecran BASIC par points 
78 MODE 1 

80 DEFINT a-y:REM pour aller tres vite 


96 PLOT 800,800,1 ‘selectionne le stylo graphiqu 
e 


100 z=TIME 

110 FOR y=-@ TO 399 STEF 
120 FOR x=0 TO 6:59 STEP 
130 PLOT x%x,y 

140 NEXT x 

150 NEXT y 

160 FRINT “"Duree ="; TIME-z 


3 td) 


1@ ‘#26 260606 HE DEEE DE DE DEEE EEE 

20 ‘+* Programme 1.5  +*+# 

SO THERE HEEHEONHIE IE DEEE JE DEEE JE 

48 ‘duree 8084 

50 ‘remplissage de l'ecran BASIC par acces memoi 
re ecran 

68 
78 MODE 1 

80 DEFINT a-y:REM pour aller tres vite 
90 co=%X11110040 

100 z=TIME 

119 FOR ad=&C000 TO Z&FFFF 

120 POKE ad,co 

13 NEXT ad 

14Q@ PRINT "Duree ="; TIME-z 


BBEA 
BBDE 


400a 
4000 
4902 


4905 


1088 
408E 
agec 
400) 
400E 
4oli 
4812 
ais 
40i4 
4015 
4816 
4gi7 
4018 
4919 
Agic 
481D 
AQiE 
agir 
4020 
4823 


4024 


A027 
4928 
4029 
402À 
4Q2E 
4Q2E 
402F 


4032 
4035 


Fass 


SEL 
CODEBE 


219801 


118002 
F5 


ES 
CDEABE 
Ei 
Di 
7B 
B2 
CA274 
Fi 
C50B40 


2B 

2E 

7D 

B4 

CAS2 

FI 
30840 


Fi 
C7 


CARACTÉRISTIQUES GRAPHIQUES 1 29 


19 ; 
20 remplissage ecran LM par point 
30 ;en utilisant PLOT (programme 1.6) 


40 ; 

50 PLOT: EGU #BBEA adresse routine PLOT 

68 INK: EQU #BBDE sadresse selection stylo 
gr aphi que 

70 ; 

89 ORG #4008 

98 LD Ai 

100 CALL INK positionne couleur dans ÀF 

118 ; 

120 LD HL,488 stoutes les lignes 

13 ; 

140 BOUCLI: LD DE,649 stous les points de la ligne 

150 BOUCL2: PUSH AF 

16 PUSH DE 

170 PUSH HL 

189 CALL FLOT 

196 FOF HL 

208 POP DE 

218 POP 4F 

220 DEC DE 

23 DEC DE px=x-2 

240 PUSH ÀF 

250 PUSH DE 

268 FUSH HL 

278 CALL PLOT 

298 POP HL 

298 POP DE 

300 LD AE 

319 ŒR D steste la fin de la boucle 

32 JP Z,FIN2 fin de la ligne en cours 

33 POF AF srécupere encre 

340 JF  BOUCL? scontinue la ligne 

390 ; 

360 FIN2: DEC HL 

370 DEC HL ÿ=Y"2 

390 LD AL 

390 ER H steste fin de boucle 

400 JF  Z,FINI fin du remplissage 

410 POP AF srecupere encre 

420 JF BOUCLI 

439 ; 

440 FINI: POP AÀF sremet pile en etat 

458 RET ;tin 


2 errors: 00 
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10 #22 DD HDI DE DE DE DE DEIEDEE 

20 ‘*#* Programme 1.6 xx 

SO ‘HIDE DE DEEE DE DEEE 

40 ‘duree 21065 

90 ‘remplissage de l'ecran LM par points 

60 

76 MODE 1 

80 MEMORY &SFFF 

90 DEFINT a-y:REM pour aller tres vite 

100 AD=&44000 

11Q READ c:1F c=-1 THEN 140 

120 POKE ad,c:ad=ad+1i:GOTO 110 

130 DATA 62,1,205,222,187,33,144,1,17,128,2,245, 
2135,229,205,234,187,225,209,241, 27,27,245,21 
3,229,205,234,187,225,209,123,178,202,39,64,2 
41,195,11,64,43,43,125,180,202,50,64,241,195, 
8,64,241,201,-1 

14Q z=TIME 

150 CALL &4000 

160 PRINT “"Duree ="; TIME-Zz 


18 ; 
28 ;remplissage ecran LM par acces memoire ecran 
30 ; (programme 1.7) 


4008 40 ORG +#4008 

J0 ; 
4000 218800 6@ LD HL,#COU9 sdebut menoire ecran 
4003 GEFO 70 LD C,411118000 ;masque pour quatre pts 

en couleur i 

88 ; 
4085 71 9@ LOOP: LD (CHL),C sremlissage octet 
4006 25 180 INC H soctet suivant 
4907 JC 118 LD AH 
4008 E5 120 ŒR OL sa t'on depasse #FFFF ? 
4009 C20544 130 JF NZ,LOOP non: continuer 
4aec C9 148 RET sfin du travail 


Pass 2 errors: 00 


LOI DEEE DIE DEDE DE DE DEEE 

286 ‘*#*# Programme 1.7 +**# 

SO ‘HR HN HENENHEIE DH DE DIE DEN 

40 ‘duree S7 

90 ‘remplissage de l'ecran LM par acces memoire 

ecran 

68 ‘ 

786 MODE 1 

80 MEMORY &3FFF 

906 DEFINT a-y:REM pour aller tres vite 

100 AD=4&4000 

116 READ c:1F c=-1 THEN 140 

120 POKE ad,c:ad=ad+i:GOTO 110 

130 DATA 35,0,192,14,240,113,35,124,181,194,5,64 
»,201,-1 

146 z=TIME 

150 CALL &40008 

168 PRINT “Duree ="; TIME-Zz 


UTILISATION 
DU LANGAGE MACHINE | © 
SOUS BASIC 
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ASSEMBLEUR ET LANGAGE MACHINE 


Définitions 


Le processeur principal de l'Amstrad est un Z-80. Malgré son âge, ce 
micro-processeur accomplit brillamment sa mission, gérant notamment 
96 Ko de mémoire alors que son champ d'adressage se limite à 64, plus 
rapidement que sur les machines concurrentes dotées de 64 Ko. 


Il va sans dire que pour obtenir de telles performances, les concepteurs 
de l’Amstrad ont dû recourir à nombre d'astuces. Celles-ci facilitent la tâche 
du processeur, mais pas toujours celle du programmeur, nous le consta- 
terons souvent à nos dépens. 


L'obstacle qui surgit d'emblée lors des premiers pas en assembleur est 
justement celui de la définition. Quelle est la différence entre l'assembleur 
et le langage machine ? Il n'y en a pas à proprement parler. Il s’agit bien 
d'une nuance de définition. Le seul langage compris par un processeur est 
son langage machine. Ce langage est constitué d'instructions opérant sur 
des registres, des adresses mémoires, ou des lignes de périphériques. 
Dans tous les cas, ces instructions sont des nombres. Le stockage de 
données et des programmes s’effectuant en binaire, il faut donc se 
résoudre à l'évidence : les seuls programmes exécutables par le proces- 
seur sont constitués d’une suite de 0 et de 1. Fort heureusement, les 
constructeurs de processeurs n'en sont pas restés là. Constatant les 
difficultés de programmation en binaire, ils ont associé, à chacune des 
instructions du processeur, un mnémonique, un nom propre qui en facilite 
la compréhension et la mémorisation. Par exemple, sur le Z-80, l'instruc- 
tion qui charge le contenu du registre B dans le registre À se matérialise par 
le nombre $78 (ou 01111000 en binaire, tel qu'il est effectivement stocké en 
mémoire) qui est devenu “LD A,B”. Toutes les instructions ont ainsi reçu 
un nom. Nous pouvons maintenant introduire les deux définitions : 


— le langage machine est l'ensemble des instructions du processeur sous 
forme numérique (en binaire, hexadécimal ou décimal) ; 
— le langage assembleur est l'ensemble des noms. 


Le langage assembleur a une fonction de mise au point : il est beaucoup 
plus clair de lire “LD A,B” dans un programme que “01111000”. Les 
sources d'erreurs (par inattention surtout) sont d'autant réduites. Mis à part 
ce point de détail, il est théoriquement équivalent au langage machine. 
Toutefois, stocker “01111000” dans une case mémoire est facile. Mais que 
faire de “LD A,B” ? 


Avant l'invention des programmes assembleur, la seule solution était la 
suivante : le programmeur programmait ses routines grâce aux mnémoni- 
ques, puis prenait chaque instruction de son programme et la traduisait en 
langage machine. Ensuite, il rentrait la liste des nombres obtenus en 
mémoire. Un programme assembleur a pour but d'effectuer ce travail. 
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Dès lors, le programmeur se retrouve avec un langage facile à mémori- 
ser (en comparaison du langage machine) et à pratiquer. Programmer en 
langage d'assemblage revient à programmer en langage machine : la 
frontière qui sépare les deux langages est entièrement abolie par le 
programme assembleur. 


Par abus de langage, le terme assembleur a fini par représenter tout à la 
fois : le langage machine, le programme assembleur, et même le langage 
d'assemblage. 


Ne vous étonnez donc pas de rencontrer indifféremment les termes 
langage machine et assembleur dans la suite de l'ouvrage. Ils sont de nos 
jours synonymes. 


Chaque processeur, à l'image d'un interpréteur Basic, possède ses 
particularités et ses instructions. L'ensemble des instructions forme donc 
ce que l'on appelle le langage machine. Dans l'essentiel, il s'agit d'instruc- 
tions plutôt primitives, ne sachant pas faire grand chose. Pourtant, tout ce 
qui peut être fait sur l'Amstrad l’est dans ce langage. Il faut donc croire que 
le langage machine, sous son apparente rusticité, représente une réelle 
puissance. 


Puissance et vitesse 


La puissance du langage machine vient de deux facteurs. Sa vitesse de 
traitement, tout d’abord. Vous avez pu constater, au chapitre précédent, 
qu'un simple programme consistant à remplir 16 Ko de mémoire avec une 
valeur donnée s’exécutait 142 fois plus vite en langage machine (nous 
l'appellerons désormais LM) qu'en Basic. Même lorsque le Basic était très 
proche du LM (lors du remplissage de l'écran point par point), le LM 
s'exécutait tout de même deux fois plus rapidement. 


Deuxième facteur important dans le langage machine : sa compacité. Le 
programme 1.1, variables comprises, occupait 143 octets. Son équivalent 
LM (programme 1.7) n'en nécessite que 13. 


Enfin, outre ces deux facteurs, il est un troisième avantage plus discret : 
en programmant en LM on accède simplement à toutes les ressources de la 
machine. C'est dire qu'en LM, rien n'est impossible, dans la mesure où l'on 
connaît les limites matérielles du possible. Evidemment, on ne fera jamais 
afficher 28 couleurs à l’'Amstrad : il n’en a que 27 par construction | 


Par contre, pour mettre en évidence la puissance du langage machine, il 
est parfaitement possible d'afficher plus de 16 couleurs différentes sur un 
même écran, en modifiant les couleurs des stylos en LM d'une certaine 
façon. En effet, il est parfaitement possible d'exécuter un tel changement 
de couleur sans que le balayage de l'écran ne soit totalement fini. Le 
balayage commence alors que le stylo possède une certaine couleur. 
Arrivé par exemple au milieu de l'écran, si le stylo change de couleur, le 
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balayage se terminera avec cette nouvelle couleur. Comme vous le 
constatez, le LM repousse bien loin les limites expliquées dans la 
documentation Amstrad. 


Toutefois, le LM possède un inconvénient énorme : il s’agit, à l'heure 
actuelle, du langage le plus difficile d'accès, bien qu'il ne soit pas le plus 
difficile à pratiquer. Alors que tous les autres langages (Basic, Pascal, C, 
Ada, Forth, etc.), se prêtent bien à un apprentissage en douceur, le LM 
s'apprend très différemment. En l'occurrence, les débutants apprennent 
Vite à connaître les instructions du Z-80 (ou d’un autre processeur), mais ils 
se heurtent inévitablement à un mur apparemment infranchissable dès 
qu'ils tentent de les pratiquer. La persévérance et la patience aidant, au 
bout d'une période variable, le débutant a l'impression pénible de patiner 
sur place, et, soudain, le mur s'écroule, et tout devient clair. Le program- 
meur a alors l'impression que rien ne peut plus lui résister. 


La raison de cette sensation est la puissance et la polyvalence même du 
LM. Comme expliqué plus haut, tout est possible en LM. 


LES OUTILS DU PROGRAMMEUR 


Pour attaquer le LM, il faut des outils. Comme il en existe beaucoup, 
chacun fait son choix une bonne fois pour toutes. Une fois ces outils 
choisis, le programmeur y sera si attaché qu'il ne fera rien pour en avoir de 
plus puissants ou de plus complets. L'essentiel reste de bien connaître ses 
outils. 


Voici les outils du programmeur LM : 


— un livre d'initiation au langage machine Z-80, mettant en évidence les 
pièges grossiers du processeur, dans lesquels même le plus expérimenté 
des programmeurs peut tomber par inattention ! Nous vous recomman- 
dons particulièrement Programmer en assembleur d'Alain Pinaud (publié 
aux éditions du P.S.I.). Bien qu'assez ancien, ce livre reste le meilleur de sa 
catégorie, de loin, et possède une table complète des instructions Z-80 ; 


— un livre de référence sur le Z-80. Cet achat sera le plus onéreux, mais pas 
le moins utile. Il en existe quelques-uns, dont la bible, à savoir Programma- 
tion du Z-80 de Rodnay Zaks, chez Sybex. Au début, il ne sera toutefois pas 
utile, mais son besoin se fera sentir lorsque vous en viendrez à calculer le 
temps d'horloge demandé par une routine pour l'optimiser et accélérer son 
exécution ; 


— un assembleur. Pour l'Amstrad, DEVPAC est sans doute l'un des 
meilleurs en raison des possibilités d'inclusion de fichiers externes. Mais là 
aussi, il existe plusieurs assembleurs dignes d'intérêt, sans que l'on puisse 
affirmer à 100 % lequel est le meilleur. Certains préfèrent DAMS, d'autres 
ZEN. L'essentiel est de bien connaître les possibilités de son assembleur, le 
reste est affaire de goût ; 
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- un débugger/désassembleur. Un tel outil permet par exemple d'exécu- 
ter un programme instruction par instruction, ce qui est parfois utile pour 
trouver une erreur. Les assembleurs récents (ils le sont tous sur la machine 
qui nous intéresse) possèdent un débugger intégré ou séparé compatible 
avec l’assembleur ; 


— si possible, un lecteur de disquettes. Le besoin ne se fera pas trop sentir 
pour les routines du livre, toutefois le programmeur réalisant ses propres 
programmes craquera vite s’il doit recharger l'assembleur à chaque fois 
que son programme plante l'ordinateur. || va de soi que l'achat d'un lecteur 
de disquettes représente un certain investissement, mais de nos jours cet 
investissement est vite amorti. Si vous possédez un 664 où un 6128, il va 


également de soi que notre remarque devient caduque ! 


— dès que possible, et même avant le lecteur de disquettes, une impri- 
mante. Programmer en assembleur sans imprimante est acceptable si les 
routines ne dépassent pas deux pages écran. Au-delà, cela frôle le suicide. 
Ceux qui ne possèdent pas d'imprimante en subissent les conséquences, 
c'est-à-dire qu'ils sont leur propre imprimante. En clair, lorsqu'il ÿ a une 
erreur, ils recopient le programme à la main sur papier pour ÿ voir clair ; 


— concernant l’'Amstrad, il existe trois documentations essentielles. On 
juge trop souvent les micro-ordinateurs par leurs performances techniques 
ou les logiciels disponibles. Mais ces éléments, au contraire, sont secon- 
daires. Ce qui compte le plus, c'est la documentation disponible et sa 
qualité. Hormis le manuel du constructeur, qui ne suffit pas dès que l'on 
attaque le LM, trois ouvrages très facile à trouver sont à acheter au même 
titre que le programme assembleur. CPC 464 FIRMWARE, publié par 
Amsoft, résume la totalité des particularités du logiciel interne de l'Ams- 
trad. Il a été écrit par l’un des auteurs de ce logiciel, ce qui est une 
assurance inégalable. Et non seulement ce manuel dit tout, mais il est 
extrêmement bien organisé, ce qui ne gâche rien. Si vous rechignez à vous 
procurer ce gros classeur en langue anglaise, P.S.I. a publié Clefs pour 
l’Amstrad qui est un excellent condensé sur l'Amstrad. Tout yÿ est, bien 
rangé, facilement accessible, mais attention : ce livre sera surtout utile à 
ceux qui auront lu le Firmware. Clefs est au Firmware ce que le dictionnaire 
est à l'encyclopédie ; 


— enfin, Micro-application a traduit /a bible du programmeur de l’Amstrad, 
qui est un horrible fouillis, mais qui explique en long, en large et en travers 
tout ce qu'Amstrad n'a pas voulu dire. La programmation directe des 
circuits y est notamment disséquée, et le livre comporte le listing de la 
totalité du logiciel interne du CPC 464. Attention, cet ouvrage n'est pas 
facilement assimilable, il est en tout cas inutile pour ceux qui veulent se 
familiariser avec le Z-80 ! Mais il sera une aide inégalée pour ceux qui 
veulent fouiller leur Amstrad en LM, par exemple pour détourner des 
routines système ou travailler directement avec le 6845 ! 
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PROGRAMMATION DU Z-80 


Le processeur 


Le Z-80 possède sa propre philosophie. Sa programmation passe 
principalement par une utilisation appropriée des bons registres aux bons 
moments. Le nombre de registres du Z-80 est en effet assez élevé, ce qui 
est un énorme avantage par rapport à la majorité des autres processeurs 
8 bits (schéma 2.1). 


ll 
H 
REGISTRES DE TRAVAIL 
En 16 bits HL,DE,BC 
8 bits H,L,D,B,C 
[l 


REGISTRE DE CALCUL 
8 bits A 


16 bits AF 


REGISTRE D'ETAT 
8 bits F 


16 bits AF 
IX REGISTRE D'INDEXATION 
W 16 bits IX,IY 


16 bits PC 
SP 


REGISTRES DE CONTROLE 


REGISTRE D'INTERRUPTION 
[1] 8 be! 


REGISTRE DE RAFRAICHISSEMENT 
| R | 8 bits R 
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REGISTRES SECONDAIRES 
16 bits HL,DE;BC;AF' 





Schéma 2.1 Les registres du processeur Z-80. 


En revanche, les possibilités d'accès à la mémoire (que l'on regroupe 
sous l'appellation de modes d’adressage) sont moins étendues qu'on ne le 
voudrait. De plus, bien que le nombre d'instructions soit assez impression- 
nant, il en manque certaines que tout débutant a pourtant tendance à 
inventer, ce qui conduit inévitablement à une erreur d'assemblage et donc 
à une correction de l'instruction, pas toujours évidente. Mais dans 
l'ensemble, l'expérience des défauts vient avec la pratique. 


Les registres du Z-80 sont tous de type 8 bits, sauf quatre registres 16 bits 
utilisés à des fins très particulières. Toutefois, certains des registres 8 bits 
peuvent être traités par paire pour former des registres 16 bits, par 
exemple pour traiter des adresses. 


Le Z-80 possède d'autre part un second jeu de registres, que l'on peut 
échanger contre le jeu principal. Cela est utile pour sauver facilement les 
registres avant d'entamer un travail provisoire. Ces registres sont d’ailleurs 
utilisés sur l'Amstrad lors des interruptions. Malheureusement, ceci en 
interdit l'emploi pour la programmation, à moins de détourner les 
interruptions — ce qui sort largement du cadre de cet ouvrage. La 
documentation Amstrad Firmware indique d'ailleurs comment procéder. I 
est dommage que la modification n'ait pas été prévue à l'origine, car les 
registres secondaires ne sont pas toujours inutiles. Ça ne devrait toutefois 
pas être un problème pour les débutants, s'ils apprennent le Z-80 en ne les 
utilisant pas. 


Les registres 8 bits 


Les registres 8 bits les plus utilisés sont de loin A et F. A est le registre 
“accumulateur”. Il reçoit les résultats des instructions de calcul du Z-80 
(addition, soustraction, rotations de bits, opérations logiques, etc.). F est 
son associé : il résume le résultat de l'opération sous la forme de drapeaux. 
Il y a par exemple le drapeau Z qui est levé si le résultat est nul, et baissé 
sinon. F reçoit également sous cette même forme les résultats d’autres 
opérations (par exemple, les comparaisons entre A et un nombre ou un 
autre registre) même si le contenu de A ne change pas à cette occasion. 
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On ne peut pas stocker de valeur particulière dans F. Tout au plus peut- 
on lever ou baisser certains drapeaux, et sauver ou récupérer ce registre en 
même temps que À. En revanche, A est extrêmement souple et la totalité 
des modes d'adressage peut faire appel à A, alors que certains ne sont pas 
disponibles sur les autres registres. 


Deux autres registres 8 bits sont très utilisés : H et L. On les utilise 
d'ailleurs le plus souvent sous la forme 16 bits (registre HL), afin de stocker 
des adresses. En effet, HL accède à un grand nombre de modes d'adres- 
sage et est donc idéal pour des travaux sur des tables de données, ou pour 
pointer sur des données. 


Les quatre autres registres 8 bits manipulables sont nommés B,C, D et E. 
Ils sont moins souples que H et L : les registres BC et DE ne possèdent pas 
tous les modes d'adressage de HL. En revanche, BC et B sont utilisés 
comme compteur par toutes les instructions Z-80 travaillant à partir d'une 
boucle. DE possède également ses caractéristiques propres, lors des: 
instructions de recherche ou transfert de chaînes (LDIR, CPIR et les 
instructions du même style). 


Il est à noter que deux registres 8 bits spéciaux sont disponibles : il s’agit 
de | et de R. Leur utilisation est réservée au processeur. | est le registre 
d'interruptions, indiquant quel est le type de l'interruption. R servait dans le 
temps au rafraîchissement de la mémoire. Il est utile pour générer des 
nombres au hasard, car sa valeur est constamment modifiée et de façon 
relativement imprévisible. 


Les registres 16 bits 


Enfin, les registres IX et IY, de 16 bits exclusivement (il ne s'agit pas de 
registres Ÿ et X regroupés avec le registre |) ont presque toutes les 
fonctionnalités de HL, plus une : ils permettent un mode d'adressage dit 
“indexé”, que HL ne possède pas. Mais IX et IY sont “en plus” sur le Z-80, 
et il faut savoir que les instructions s'y rapportant sont beaucoup moins 
rapides que leurs équivalents travaillant avec HL. On les réservera à 
l'utilisation de l’adressage indexé, ou bien pour pointer sur des tables 
comme HL si l'on doit en traiter simultanément plus d'une. 


Il existe deux autres registres 16 bits utilisés très peu par le programmeur 
et très souvent par le processeur : PC et SP. PC est le pointeur de 
programme : c’est lui qui pointe l'instruction en cours d'exécution. || y a 
quelques instructions permettant de modifier son contenu, et un grand 
nombre le faisant sans en avoir l'air. Entre autres, toutes les instructions JP 
et JR modifient PC (JP et JR sont exactement équivalentes à un GOTO 
Basic). Quant à SP, il pointe sur la pile du Z-80. 
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La pile est un endroit de longueur limitée mais indéterminée (il faut 
s'arranger pour que la longueur qu'on lui octroie soit suffisante) où sont 
rangées toutes les informations temporaires des programmes. Par exem- 
ple, lorsque le Z-80 rencontre une instruction CALL (équivalent en Basic : 
GOSUB), il range l'endroit de l'instruction en cours dans la pile, va exécuter 
le programme se situant à l'adresse demandée, et revient après le CALL en 
récupérant l'adresse dans la pile (schéma 2.2). 

! 


©) 


m CALL n ——+ SP remonte, la pile contient l'adresse (m+3) 
puis PC devient “n” 


= 


(2) PILE 


! 


n+ RET —h PC devient (SP) soit m+3, SP redescend 
 mi3 | @— SP 
PILE 


Schéma 2.2 La pile. 
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L'utilisateur a la possibilité de travailler avec cette pile, et aussi avec 
d'autres piles, puisque des instructions permettent de sauver et de 
récupérer le contenu de SP. Toutefois, si l'utilisateur veut utiliser deux 
piles, il devra gérer ses deux pointeurs (certains processeurs, comme le 
6809, possèdent deux pointeurs de piles, ce n’est hélas pas le cas du Z-80). 


La pile est souvent utilisée dans les programmes pour sauver rapide- 
ment des registres avant un travail (il serait plus simple de les sauver dans 
le second jeu de registres, mais nous avons vu plus haut que celui-ci est 
inutilisable sur l'Amstrad). Elle est très pratique mais aussi très dan- 
gereuse. En effet, si le nombre d'instructions rangeant quelque chose dans 
la pile n'est pas le même que celui des instructions les récupérant, le risque 
de planter la machine est grand, et celui d'obtenir des erreurs de 
fonctionnement du programme est énorme. Imaginez une pile d'assiettes 
en porcelaine : si vous enlevez plus d’assiettes qu'il n’y en a dans la pile, il 
y a un imprévu. Inversement, si vous laissez une assiette avant de secouer 
la nappe, il va ÿ avoir de la casse. En Z-80, si une routine appelée par CALL 
laisse une adresse de trop, le retour va se faire à l'endroit indiqué par celle- 
ci, qui n'aura rien à voir avec la bonne adresse se trouvant juste dessous. 
De même, si la routine enlève une adresse de trop, le retour se fera aussi à 
un endroit n'ayant rien d'intéressant. 


Les registres secondaires 


Les registres secondaires ne sont pas utilisables sur l'Amstrad. Il est 
toutefois intéressant de connaître leur existence. Ils sont au nombre de 
huit : A’,F’,B,C’,D',E’,H'et L’. Ils sont exactement équivalents, en temps 
normal, aux registres À à L. Attention : il n'existe pas de IX’, IY’, PC’ ni SP’. 


INSTRUCTIONS DU Z-80 


Introduction 


Le Z-80 possède de nombreuses instructions. Elles peuvent toutes plus 
ou moins utiliser les modes d'adressage disponibles. Rappelons qu'un 
mode d'adressage est une façon d'accéder à une information. Le problème 
du Z-80 est qu'il n'est pas orthogonal. Un processeur est dit orthogonal 
quand tous les modes d'adressage sont utilisables sur toutes les instruc- 
tions, ce qui est loin d'être le cas en Z-80. 


Pour simplifier, nous n'allons pas passer en revue les différents modes 
d'adressage du Z-80. En effet, si ces modes sont facilement identifiables au 
niveau du code machine (les nombres correspondant aux instructions), il 
en est autrement au niveau des instructions proprement dites, sous leur 
forme assembleur comme JP ou ADD. A ce niveau, les modes d'adressage 
sont moins évidents. Par exemple, “JR adresse” est une instruction qui 
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semble utiliser l’adressage absolu, puisqu'une adresse est précisée. En fait, 
il s'agit d'adressage relatif ! En effet, c'est le programme assembleur qui 
transforme l'adresse en un autre type de donnée. Ce genre de subtilité est 
un véritable piège pour le débutant, qui aura bien du mal à faire la 
différence entre “JR adresse” et “JP adresse, qui font la même chose et se 
présentent de la même façon. Le Z-80, par contre, fait la différence au 
niveau codage, encombrement, rapidité et fonctionnement. 


Un débutant en Z-80 est vite mis en difficulté par la quantité d'instruc- 
tions disponibles. Mais au début, seul un certain nombre d'entre elles sont 
véritablement utiles. C'est la liste de ces instructions vitales que nous 
allons étudier, ignorant volontairement un bon nombre d'instructions. 


Accès mémoire, chargements des registres 


Tout d'abord, car il s’agit sans doute des instructions les plus utilisées, 
nous allons passer en revue les chargements de registres. Ces instructions 
LD permettent de stocker une valeur dans chacun des registres du Z-80. 
Mais il y a plusieurs façons de préciser la donnée en question. 


On peut dans tous les cas préciser directement la valeur: il s'agit 
d'adressage immédiat. Par exemple, “LD A,34" ou “LD BC,32767". Cette 
façon de charger une valeur dans un registre est réservée auxinitialisations 
(schéma 2.3). 


B C LD BC, S$ 7FFF 
[l 


Schéma 2.3 Adressage immédiat. 


Il'est aussi possible, la plupart du temps, de charger un registre avec la 
valeur contenue dans un autre registre. Par exemple, “LD A,B" charge le 
contenu de B dans A (schéma 2.4). 


A B 
7E 7E 


a 


Schéma 2.4 Adressage par registre. 


LD  A,B 
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Attention : ce type de chargement ne fonctionne que sur les registres 
8 bits. Il n'existe pas de “LD BC,HL”, par exemple. Pour obtenir la même 
chose, il faut procéder en deux instructions, en l'occurrence “LD B,H" suivi 
de “LD C,L", Seul SP fait exception, puisqu'il est possible de charger 
directement dans ce registre les contenus de HL, IX ou IY. Cela permet de 
gérer assez facilement plusieurs piles. 


Il'est possible, pour tous les registres 16 bits (BC, DE et HL mais aussi IX, 
IY et SP) de charger une donnée 16 bits en indiquant l'adresse où elle se 
situe. On indique alors cette adresse entre deux parenthèses. Ainsi, “LD 
BC, (4000) permet de charger les deux octets situés en 4000 et 4001 dans 
les registres respectifs C et B (car le premier octet en mémoire est celui de 
poids faible, c'est-à-dire situé à droite dans un nombre 16 bits). Cette 
possibilité est aussi offerte au registre À, ainsi qu'à SP (schéma 2.5). 


LD BC,($4000) 








MEMOIRE 
B 
02 E 
Schéma 2.5 Adressage indirect. 


IX et IY permettent un mode particulier de travail : on peut les associer à 
un déplacement afin de pointer dans une table. Exemple : “LD C,{IX+4)" 
indique au Z-80 de charger, dans le registre C, le contenu de l'adresse 
IX+4, c'est-à-dire l'adresse contenue dans IX à laquelle on ajoute 4. C'est 
ce qu'on appelle l'adressage indexé (schéma 2.6 v. p. 43). 
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LD C,(IX+4) 


IX 
$4000 


MÉMOIRE 





$67 


Schéma 2.6 Adressage indexé. 


Dans une moindre mesure, ce type de travail peut également être 
effectué par HL : “LD E, (HL)" permet ainsi de charger dans E le contenu de 
l'adresse indiquée dans HL. On parle alors d'adressage indirect par 
registre. (HL), (IX+n) et (IY+n) peuvent ainsi être utilisés avec tous les 
registres 8 bits communs, et, en guise de bonus, A peut travailler 
également avec (DE), et avec (BC) (schéma 2.7). 


LD C,(HL) 


ZT 


$85 





Schéma 2.7 Adressage indirect par registre. 
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Les chargements en mémoire, qui sont les instructions inverses des 
chargements de registres, travaillent obligatoirement (sauf trois excep- 
tions : “LD (HL}),n”, “LD (IX+n),m" et “LD (IY+n),;m” qui autorisent le 
chargement direct d'une donnée à une adresse indiquée par les registres 
indiqués) avec le contenu d'un registre. Il est par exemple impossible 
d'effectuer un “LD (0),15” pour charger la valeur 15 à l'adresse 0. Les 
chargements en mémoire sont en nombre beaucoup plus réduits. D'une 
façon générale, ils s'écrivent “LD représentation d'une adresse, registre” 
(schéma 2.8). 


LD (IX + 3), $76 


$4000 IX 


+3 
index 





Schéma 2.8 Chargement indexé en mémoire. 


On peut effectuer avec le registre À tout ce qui est imaginable à ce 
niveau : chargement à une adresse indiquée par un registre 16 bits (par 
exemple “LD (BC), A"), chargement direct à une adresse (“LD (4000),A"), 
chargement indexé (“LD (IX+n),A”). Les opérations à base du contenu des 
autres registres 16 bits sont par contre limitées à l’adressage indirect ou 
indexé. On ne peut charger un registre 8 bits autre que A qu'à une adresse 
indiquée sous la forme (HL), (IX+n) ou (IY+n). 


Enfin, il est possible de sauver à une adresse directement exprimée le 
contenu des registres 16 bits BC, DE, HL, IX, lY et SP (et, nous l'avons vu ci- 
dessus, on peut aussi utiliser À pour charger ainsi une valeur 8 bits). 


Cela procure une liste non négligeable d'instructions. Dans la pratique, il 
suffit d'avoir une liste complète des instructions par ordre alphabétique à 
portée de main pour s'en sortir {voir annexe 1). 
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La pile et sa gestion 


Autre catégorie d'instructions : les instructions de gestion de la pile. 
Celles-ci sont regroupées sous les dénominations PUSH et POP. PUSH 
permet de ranger dans la pile les registres 16 bits AF, BC, DE, HL, IX et lY. 
POP permet de récupérer dans la pile une valeur, en la chargeant dans un 
de ces registres. Ainsi, la séquence “PUSH BC" suivi de “POP HL" range le 
contenu de BC dans la pile et le retire immédiatement pour le ranger dans 
HL. Voilà donc le moyen d'effectuer un simili “LD HL,BC”. Cela dit, cette 
manipulation est peu utilisée car elle est bien plus lente que la combinaison 
de “LD H,B" et “LD L,C”. Par contre, il est possible d'utiliser la pile pour 
échanger des contenus de registres 16 bits facilement. 


Ainsi, on utilise la séquence suivante pour inverser HL et BC (schéma 
2.9) : 


QG) PUSH BC 


SP+1 


SP+2 





avant après 


mn 
n 


BC 7F 


HL DE 3C 
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(3) POP BC 





SP 


SP 








SP 





Schéma 2.9 Échange de registres par la pile. 


PUSH BC 
PUSH HL 
POP BC 
POP HL 


Enfin, on peut aussi résumer les instructions de gestion du registre SP, le 
pointeur de pile. Ce registre retient l'emplacement de la pile, plus 
exactement l'emplacement du haut de la pile. Un PUSH diminue cette 
valeur de 2, et un POP l’augmente de 2. On peut charger SP avec les valeurs 
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contenues dans un des registres HL, IX, IY, on peut aussi stocker 
directement une valeur (“LD SP,adresse”) ou indirectement (“LD SP, 
(adresse)"). 


Dans le sens inverse, on peut sauver la valeur de SP à une adresse (“LD 
(adresse),SP"). Il est également possible d'ajouter 1 à SP en utilisant « INC 
SP", ou d'enlever 1 avec “DEC SP”. 


ll existe d’autres instructions pouvant utiliser SP, mais elles relèvent du 
haut professionnalisme ! 


Les drapeaux/flags 


Le Z-80 possède un registre F contenant les drapeaux, nous l'avons vu 
plus haut. Ces drapeaux sont au nombre de six, utilisant chacun un bit de F 
(il y a deux bits inutilisés). Le drapeau C, appelé “Carry”, indique en général 
une retenue (lors d'additions), un changement de signe (soustraction) ou 
un des bits de À après une rotation. On l'utilise, lors des débuts, 
principalement pour des tests de comparaison. 


Ainsi, après une instruction “CP n”, le Carry vaut 1 si le contenu du 
registre À était strictement inférieur à n, et 0 sinon. 


Le drapeau N indique, lorsqu'il est mis à 1, que la dernière opération était 
une soustraction (ce qui permet de savoir si le Carry provient ou non d'une 
telle opération). Peu de programmes en nécessitent l'emploi, nous conseil- 
lons donc vivement d'oublier pour l'instant son existence. 


Le drapeau P/V a un double sens. Lors des opérations arithmétiques 
(addition, soustraction), il indique qu'un débordement a eu lieu. P/V est 
rarement utilisé dans les programmes, sauf cas vraiment particuliers, 
comme des calculs en grande précision. 


Le drapeau H ne présente aucun intérêt non plus. Par contre, plus 
intéressants sont les drapeaux Z et S. Ils indiquent en effet respectivement 
la nullité et le signe de A. Si Z=1, le contenu de A est nul, ou bien (après 
une comparaison) les nombres comparés sont égaux. Si S=1, le nombre 
contenu dans 1 est négatif. 


Le débutant (ainsi que la plupart des programmeurs) n'utilisera utile- 
ment que C, Z et S. Ce sont en effet les drapeaux qui indiquent l'état du 
contenu de À : on peut, en les consultant, savoir si À est cohérent, nul, 
positif ou non. 


Les drapeaux ne sont jamais utilisés en tant que tels : ils doivent être 
consultés et associés à une instruction CALL, RET, JR ou JP. Selon 
l'association demandée, l'instruction est exécutée si cette association est 
possible, et ignorée si ce n'est pas le cas. 
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Les associations sont les suivantes : 


NZ pour savoir si Z=0 (A non nul, par exemple) ; 

Z pour savoir si Z=1; 

NC pour savoir si C=0; 

— C pour savoir si C=1; 

PO pour savoir si P/V=1; 

PE pour savoir si P/V=0; 

P pour savoir si À est “Plus grand que 0, soit positif (S=0) ; 

— M pour savoir si À est “M'oins grand que 0, soit négatif (S=1). 


Par exemple, l'instruction “JP P,4000” provoquera un saut en 4000 si le 
drapeau S est à 0. Elle sera ignorée si S est à 1. 


Sauts et branchements conditionnels 


Puisque nous en sommes à parler de CALL, JP et JR, autant les passer en 
revue, d'autant plus que cela terminera notre exposé sur le Z-80. CALL est 
en LM l'équivalent de GOSUB en Basic : arrivé à “CALL adresse”, le 
programme saute à cette adresse, jusqu'à ce que RET soit rencontré. 
Ensuite, le programme revient à la suite du CALL. JP provoque la même 
chose, mais sans retour possible (équivalent de GOTO). Enfin, JR est une 
version de JP destinée à de petits sauts (dans un endroit pas plus éloigné 
de l'instruction que par 128 octets). JR est un peu moins rapide que JP, 
c'est pourquoi nous ne l'utiliserons pas dans nos routines. JR a une seule 
utilité, qui n’est valable que pour des programmes d'un certain type. En 
gros, lorsqu'un programme utilise des JP, il ne peut fonctionner que s'il est 
chargé à une certaine adresse bien précise, celle qui a été choisie lors de 
l'assemblage. Par contre, si le programme utilise JR, il peut être placé à 
n'importe quelle adresse. Cette possibilité ne nous intéresse pas ici, car nos 
routines sont courtes, et nous les placerons toujours à un endroit bien 
connu. Les débutants n’ont aucun intérêt à utiliser JR. De plus, JR ne peut 
être associé qu'aux conditions C, NC, Z et NZ. Et JP procure trois facilités 
intéressantes : il est possible d'utiliser “JP (HL)", “JP (IX)" et “JP (IY)" pour 
sauter à une adresse calculée. Cela permet de programmer ce que l'on 
appelle des “vecteurs”, dont Amstrad fait un usage important à des fins de 
compatibilité entre ses différents modèles. 


Conclusion 


Nous laissons aux lecteurs le soin de consulter des livres spécialisés (par 
exemple ceux que nous vous recommandons plus haut) afin d'en connaître 
plus sur les instructions arithmétiques et logiques du Z-80. Il est également 
intéressant de jeter un œil sur les instructions SET, RES et BIT qui 
permettent de positionner, baisser ou tester n'importe quel bit de chacun 
des registres 8 bits, voire (HL) ou (IX+d) et (IY+d). 
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Toutefois, lorsque nous utiliserons des instructions nouvelles non 
explorées dans ce chapitre, nous en expliquerons le fonctionnement et 
l'utilité. 


ASSEMBLEUR ET BASIC 


Stockage en mémoire 


Maintenant que nous connaissons mieux le Z-80, revenons sur terre. 
Vous ne possédez pas forcément un assembleur, auquel cas les instruc- 
tions JP ou ADD ne signifient rien. Une seule chose est sûre : votre 
Amstrad possède un Basic, et fort heureusement ce Basic permet tout de 
même d'utiliser du langage machine. 


Comment se présente un programme en langage machine lorsque nous 
sommes sous contrôle du Basic ? Rien de plus obscur : une belle suite de 
nombres apparemment incohérente. Comment le rentrer en mémoire ? 
Comment l'exécuter ? 


Il faut avant tout savoir que POKE permet de modifier le contenu de 
n'importe quelle case mémoire. Nous l'avons par exemple utilisé lors du 
remplissage écran. “POKE adresse, valeur 8 bits” est exactement équiva- 
lent, en LM, à “LD A,valeur” suivi de “LD (adresse), A". Vous pouvez, sous 
Basic, préciser l'adresse et la valeur soit en décimal, soit en hexadécimal 
(adresse ou valeur précédée de ‘&', par exemple &F23C), soit en binaire 
(préfixe ‘&X’, par exemple &X11010011). 


Cette instruction, associée à READ et DATA, permet de stocker un 
programme LM en mémoire d’après son listing. Il suffit de taper les 
nombres correspondant aux instructions dans des lignes DATA, et de les 
lire l'un après l’autre pour les stocker aux bonnes adresses grâce à READ et 
POKE. 


Cette façon de procéder est la plus simple pour des routines ne risquant 
pas de “manger” le Basic. Elle n’est pas optimale, on peut faire beaucoup 
mieux. On peut par exemple stocker directement des routines à l'intérieur 
même d'une ligne REM Basic. Mais cela nécessite des précautions 
draconiennes. 


Lorsqu'une routine LM est placée en mémoire, il faut en général lui 
réserver une place pour éviter que le Basic ne vienne la détruire lors de ses 
travaux. L'instruction MEMORY a ce rôle. “MEMORY adresse—-1” indique 
au Basic qu'il ne devra pas aller travailler au-delà de “adresse”. Ainsi, après 
“MEMORY &3FFF” le Basic ne travaillera jamais au-delà de $4000 (rappe- 
lons que le symbole ‘$' signifie hexadécimal, il est noté ‘&' en Basic, et 
souvent ‘#’ en assembleur). De cette façon, l'espace libre est disponible 
pour le LM. 
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Exécution et paramètres 


Enfin, maintenant que nous pouvons stocker un programme LM en 
mémoire et le protéger du Basic, il faut savoir l'exécuter. Pour cela, le Basic 
Amstrad possède CALL. “CALL adresse” exécute le programme LM situé à 
l'adresse indiquée, et revient au Basic lorsque RET est rencontré. 


Ces possibilités, tout ordinateur digne de ce nom les offre. Mais 
l’'Amstrad va plus loin : CALL permet également le passage de paramètres. 


Qu'entend-on par passage de paramètres ? Tout programme en LM 
fonctionne avec certaines valeurs. || y a les valeurs de départ, certes, celles 
qui doivent être placées dans les registres au début de la routine. Mais il se 
peut également que la routine puisse travailler à partir de valeurs 
inconnues. Par exemple, la routine SIN travaille à partir d'un nombre. Ce 
nombre est un paramètre. CALL permet de passer ainsi des paramètres à 
une routine, à charge pour celle-ci de les utiliser ou non. 


Ainsi, “CALL &4000,14,15" appellera la routine située en $4000, en lui pas- 
sant les valeurs 14 et 15. Cela est extrêmement puissant, d'autant plus qu'il 
est possible d'envoyer une adresse de variable. “CALL &4000,A,B,@C" 
fournit à la routine le contenu des variables A et B, ainsi que l'adresse où se 
trouve la variable C. Cela permet par exemple de ranger directement une 
Valeur, par LM, dans une variable avant de revenir au Basic. 


Le Basic utilise, pour transmettre ces paramètres, une table provisoire 
dont l'adresse sera contenue dans IX. Cette table est constituée de données 
16 bits exclusivement : on ne peut donc passer que des paramètres de type 
entier. 


Le début de la routine appelée par l'instruction CALL peut utiliser ces 
valeurs 16 bits, rangées dans l'ordre inverse de leur apparition. Ainsi, si 
nous avons “CALL &4000,Y,Z,@R", nous obtenons la table suivante : 


Adresse Contenu 

indiquée par 

IX+4 poids faible valeur de Y (8 bits de droite) 
IX+5 poids fort valeur de Y (8 bits de gauche) 
IX+2 poids faible valeur de Z 

IX+3 poids fort valeur de Z 

IX+0 poids faible adresse de localisation de R 
IX+1 poids fort adresse de localisation de R 


Cette table est utilisable, rappelons-le, dès le début de la routine, puisque 
le Basic s'occupe personnellement de transmettre IX. 


Nous savons donc déjà comment utiliser des valeurs transmises. Si nous 
voulons par exemple additionner Ÿ et Z par langage machine, il suffit 
d'avoir la séquence LM suivante : 
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LD L,(IX+4) 
LD H,(IX+5) 
LD E,(IX+2) 
LD D,(IX+3) 
ADD HL,DE 


L'addition aura bel et bien été exécutée. Le problème qui reste est le 
suivant : comment transmettre le résultat à R ? 


Nous avons déjà une partie de la solution, puisque nous avons vu que 
l'on pouvait passer à notre routine l'adresse de la variable R. Grâce à cette 
adresse, nous pouvons en effet modifier la valeur de la variable. Pour cela, 
il nous faut connaître la structure des variables entières, c'est-à-dire ce que 
nous allons trouver à l'adresse ainsi passée en paramètre. 


La meilleure façon de connaître cette structure, c'est sans aucun doute 
d'utiliser le Basic pour afficher le contenu de la mémoire. Tapez le 
programme suivant : 


10 CLEAR:DEFINT A-Z 
20 A=&1234 

30 FOR 1= @A TO @A+1 
40 PRINT HEXS$(PEEK(I),2); 
50 NEXT I 


A l'exécution, vous obtenez le résultat 3412. Cela nous révèle ce que 
nous voulions savoir : l'adresse @A indique l'adresse du contenu de A. 


Pour modifier la valeur de R dans la routine LM ci-dessus, il suffit de 
rajouter les instructions suivantes : 


EX DE,HL : pour passer le résultat dans DE et disposer de HL ; 
LD L,(IX+0) : pour stocker dans HL l'adresse de la variable ; 
LD H,{IX+1) : transmise comme dernier paramètre ; 

LD (HL)E : pour stocker le poids faible du résultat ; 

INC HL : dans la variable ; 

LD (HL),D : et son poids fort. 


Le travail de la routine est alors terminé. Le programme 2.1 résume cette 
routine et montre son utilisation sous Basic, avec les passages de 
paramètres. 


iQ ; 
28 ;addition 16 bits avec retour du resultat 
30 ;dans une variable Basic (prog 2.1) 
49 ; 
4000 ps ORG #4008 
6 ; 
4008 DD6Eu4 7@ ADDITI: LD L,(IX+#4) 
4003 DDéb5 60 LD H,(IX+5) spremier nosbre dans HL 
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4006  DD5EG2 90 LD E,(Ix+2) 
4009 DDS56D5 109 LD D,(IX+) sdeuxieme nombre dans DE 
110 ; 
120 ;ici, l'addition proprement dite 
150 ; 
agec 19 140 ADD HL,DE 
150 ; 
169 son range le resultat dans la variable 
170 ; 
400) EB 180 EX DE,HL sresultat passe dans DE 
4Q0E DD6EG0 190 LD L,(IX+) 
4011 DDé6Di 200 LD H,(IX+#i) sadresse du contenu dans HL 
4914 73 210 LD CHL),E 
Aus 25 220 INC HL 
4gib 72 250 LD  (HL),D ;le resultat devient le contenu 
4017 C9 240 RET 


Pass 2 errors: 09 


À OUEN EDE IE DEEE JE DE DE JE JE IE JE JE 

2 ‘## Programme 2.1 +#+*# 

DB URI DEEE DEEE DEEE DE DE DE DE JE 

A 

18 

28 ‘addition i6 bits LM avec modif de variable 

40 MEMORY &3FFF 

00 DEFINT a-z 

68 ad=-2#4000 

78 READ c:1F c=-1 THEN 149 

80 POKHE ad,c:ad=ad+i:G0OTO 7@ 

96 DATA 221,110,4,221,102,5,221,94,2,221,86,5,25 
,239,221,110,0,221,102,1,115,35,114,201,-1 

140 INPUT “premier nombre ";A 

150 INPUT "second nombre ";B 

168 C=0:CALL &4000,A,B,@C 

17Q PRINT "resultat :" 

180 PRINT A;"+";:B;"=";:0C 

190 END 


Organisation des routines 


Pour souple que soit cette possibilité d'interfaçage entre Basic et LM, elle 
n'est toutefois pas exempte de défauts. En effet, le temps perdu lors des 
passages de paramètres est énorme. Les opérations de chargement à base 
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de IX ou IY sont plus lentes que leurs équivalents avec HL, et le Basic a, de 
plus, un gros travail à faire lorsqu'il met en place les paramètres dans la 
table pointée par IX. Vous pouvez constater le peu d'intérêt de notre 
routine d'’addition en utilisant les programmes 2.2 et 2.3. 


1  “HMMMMEMEIEIEIE DEN IENENE EDEN 

280 ‘+*x Programme 2.2 #*# 

TO “HEIN DE DEEE DEEE 

40 ” 

38 ‘addition chronometree 16 bits LM 

6A ‘ 

78 MEMORY &SFFF 

80 DEFINT a-z 

90 ad=&4000 

108 REAÂAD c:1F ©c=-1 THEN 130 

11Q POKE ad,c:ad=adti:GOTO 1@@ 

126 DATA 221,110,4,221,102,5,221,94,2,221,86,5,2 
9,255,221,110,0,221,102,1,115,35,114,201,-1 

1:90 A=5300:B=5312 

140 z'=TIME 

150 FOR I=i TO 100 

168 C=Q:CALL &4000,A,B,@C 

17@ PRINT “resultat :" 

180 PRINT Â;"+";:Bs;"="3:0 

198 NEXT 

280 PRINT "Temps :"TIME-z! 

21@ END 


10 “HAMEEREERIIRMENHIÉIMIX 
28 ‘+* Programme 2.73 ++ 
TO HARHELERERERERERIIRIE 
40 

50 ‘addition chronometree 16 bits basic 
68 

78 DEFINT a-z 

88 a=3@0@:bh=517 

90 z'!=TIME 

106 FOR I=1 TO 100 

118 C=A+B 

120 PRINT "resultat :" 

150 PRINT À; "+";B;"=";:0C 
14G NEXT 

150 PRINT "Temps :"TIME-z! 
16@ END 
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Alors que dans un cas l'addition est effectuée par LM et dans l'autre en 
Basic, le temps d'exécution des deux programmes est quasiment le même. 
Mais le passage de paramètres par CALL a un intérêt : il n’oblige pas à faire 
de routine en fonction du nombre de paramètres, ni à gérer ceux-ci. De 
plus, les routines utilisant ce principe peuvent généralement être rendues 
très indépendantes du Basic en adoptant l'organisation suivante : 


O Appel Basic : 


— les paramètres sont rangés à des adresses mémoire bien précises ou 
dans des registres ; 


— CALL routine (voir “Appel LM” ci-dessous) ; 


— les résultats sont rangés des variables passées en paramètres directe- 
ment à partir des registres ou des adresses mémoire mis à jour par la 
routine ; 


— retour au Basic. 
0 Appel LM : 


— la routine s'effectue et range les résultats éventuels dans des registres 
ou à des adresses précises. 


De cette façon, la routine peut être utilisée de façon interne en LM et non 
pas uniquement à partir du Basic. || est à noter que cette organisation a été 
retenue pour la quasi-totalité des routines du logiciel interne de l’Amstrad 
(d'où la possibilité de récupérer ces routines pour des logiciels d’applica- 
tion comme le Basic). 


Pour illustrer le passage de paramètres, vous pouvez également utiliser 
le programme 2.4, qui effectue une soustraction 16 bits. 


10 ; 
28 ;soustraction 16 bits avec retour du resultat 
30 ;dans une variable Basic (prog 2.4) 


49 ; 
4000 30 ORG #4000 
68 ; 
4008 DD6EU4 78 SOUSTR: LD L,(IX+4) 
4005 DD66@s 80 LD H,(IXt) spremier nombre dans HL 
4006 DDSE@? 98 LD E,(IX+2) 
4009 DD5695 100 LD D,(IX+5) sdeuxiene nombre dans DE 
110 ; 
120 ;ici, la soustraction proprement dite 
158 ; 
ag0c A7 140 AND A scarry->8 pour SEC 
40@D ED52 150 SBC HL,DE scar il n'y à pas SUB HL,DE ! 


168 ; 
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178 ;on range le resultat dans la variable 


180 ; 
400F EB 190 EX DE,HL sresultat passe dans DE 
4818 DD4EG0 209 LD L,(IX+0) 
4013 DDé6p1 210 LD H,(IX+i) sadresse du contenu dans HL 
4916 75 220 LD  (HL),E 
4017 23 259 INC HL 
4918 72 249 LD (HL),D ;le resultat devient le 
contenu 
4819 C9 250 RET 
Pass 2 errors: 00 
LORIE MEME JE DE DEEE EEE 
2 ‘## Programme 2.4  %*#+# 
DORMI MMN MEME RER X 
4 
18 ” 
28 ‘soustraction 16 bits LM avec modif de variab 
le 
38 


48 MEMORY &R3FFF 

30 DEFINT a-z 

68 ad=&40008 

78 REÂD Cc:IF c=-1 THEN 140 

88 POKE ad,c:ad=ad+i:G0T0 70 

90 DATA 221,110,4,221,102,5,221,94,2,221,86,3,16 
7,237,82,235,221,110,0,221,102,1,115,535,114,2 
1,—1 

148 INPUT "premier nombre ";A 

150 INFUT "second nombre ";B 

164@ C=@:CALL £4000,A,8,@C 

178 PRINT "resultat :" 

180 PRINT À;"-";:B;"=";0c 

198 END 


Il existe également sur l’'Amstrad une autre possibilité d'interfaçage des 
routines LM, il s’agit du RSX. Ce RSX (Resident System eXtension, soit 
Extension de système résidente) permet de donner un nom aux routines et 
de les appeler par ce nom. || permet également de passer des paramètres 
non entiers. Mais il a d’autres inconvénients. Il rajoute une couche de plus à 
l'organisation que nous venons d'évoquer, et ralentit encore l'exécution. 
Nous n'utiliserons donc pas le RSX. 


Maintenant que nous savons comment utiliser des routines sous Basic, il 
nous reste un point important à éclaircir: où allons-nous placer ces 
routines ? 
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De toute évidence, nos routines ne devront empiéter ni sur le Basic 
(encore que ce soit acceptable si celui-ci n’est pas utilisé), ni surtout sur le 
système d'exploitation. En effet, la machine proprement dite utilise 
grandement le système d'exploitation et sa zone de mémoire vive. 


Il est possible de grignoter une partie de cette mémoire vive, notamment 
celle qui contient des vecteurs destinés à l'appel des routines de gra- 
phisme, de la gestion cassette, etc. Mais dans ce cas, on perd l'accès facile 
à ces routines (situées en ROM “sous” la RAM, il faut pour les appeler se 
livrer à une manœuvre des plus délicates). De plus, la place ainsi récupérée 
n'est pas réellement importante. 


Pour faire le point, éteignez votre ordinateur et rallumez-le. Juste après la 
mise sous tension, tapez PRINT HEX$(HIMEM). Cela vous donnera la plus 
haute adresse disponible pour le Basic, c'est-à-dire en pratique la plus 
haute adresse mémoire utilisable sans problème. Au-delà, il y a de grandes 
chances d'écraser des tables système, une pile où pire encore. 


Sur un Amstrad CPC 464 équipé d'un lecteur de disquettes, la plus haute 
adresse ainsi accessible est $A67B. Nous pouvons considérer, la pratique 
aidant, que la première adresse rôde aux alentours de $200. On peut 
descendre plus, mais il devient alors difficile de gérer quoi que ce soit sous 
Basic. Un rapide calcul vous informe du nombre d'octets utilisables : 


PRINT &A67B-&200+6536 


Nous devons ajouter 65536 ici pour obtenir un nombre positif : au-delà 
de $7FFF, les nombres hexadécimaux deviennent négatifs, et il faut ajouter 
65536 pour obtenir la valeur décimale positive qu'ils représentent réelle- 
ment. Nous obtenons ainsi 42107, ce qui donne presque 42 Ko disponibles 
pour les programmes en langage machine. 


Pratiquement, dans cet ouvrage, nous ne placerons aucune routine en 
dessous de $3000. En effet, il faut laisser suffisamment de place pour un 
petit programme Basic (en l'occurrence, cela laisse environ 12 Ko), faute de 
quoi l'utilisation des routines devient impossible ! 


Pour éclaircir les choses, vous trouverez en annexe 4 une carte de la 
mémoire de l’Amstrad. 
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SYSTEME D'EXPLOITATION 


Organisation 


Comme nous l'avons laissé entendre plusieurs fois, l'Amstrad se distin- 
gue des autres micro-ordinateurs par la conception de son logiciel interne, 
beaucoup plus évoluée et proche des systèmes d'exploitation d'ordina- 
teurs professionnels comme l'IBM-PC. 


Le principe de base de ce logiciel interne est en effet la programmation 
dans le système d'exploitation de tout ce qui permet de gérer les 
ressources de l'ordinateur, et non pas seulement de quelques routines. 
C'est ainsi que les 16Ko de mémoire morte contenant le système 
d'exploitation (les autres 16 Ko constituent l’interpréteur Basic) regroupent 
toutes les routines de gestion des interruptions, des graphismes ou des 
mémoires de masse (cassette, disquette...). 


Ces routines sont situées en mémoire morte : leur fonctionnement ne 
peut donc être modifié simplement, et par conséquent le Basic serait figé 
s'il les appelait par leur adresse précise. De plus, à la moindre amélioration 
matérielle, la compatibilité avec les programmes existants serait perdue. 
La plupart des constructeurs font leur lot de ce problème, ce qui explique 
pourquoi des appareils comme l'Apple Il ou le TO7, coincés par la nécessité 
de la compatibilité, n’ont guère évolué depuis leur création. 


Le logiciel interne de l’Amstrad, en revanche, est conçu pour évoluer. En 
effet, il utilise un vecteur pour chaque routine, afin de préserver la 
compatibilité sans bloquer l'évolutivité du système. Pour mettre en 
évidence l'avantage de ce principe, il suffit de savoir qu'il est parfaitement 
possible d'installer sur un Amstrad une extension dotée de mémoire morte 
qui mettrait en place des graphismes du type 512X256 en 256 couleurs, 
tout en gardant la compatibilité avec les logiciels existants ! 


Vecteurs 


Qu'est-ce qu'un Vecteur, et quel est donc son principe de fonctionne- 
ment ? Un vecteur est soit une adresse, soit une instruction de saut à une 
adresse. Il s’agit d’une information en mémoire qui indique, lorsqu'on la 
consulte, où trouver l'information que l'on cherche. Ces vecteurs sont 
situés en mémoire vive. Lors de la mise en route de l'ordinateur, ils sont 
installés, d'après les indications en ROM, à leur adresse et pointent sur le 
bon emplacement, celui de l'Amstrad standard. Or, rien n'interdit de 
modifier ces vecteurs (puisqu'ils sont en mémoire vive) afin de substituer 
une routine à celle visée par le vecteur. De cette façon, on peut par exemple 
modifier radicalement le fonctionnement de la routine traçant une ligne 
entre deux points. || suffit de reprogrammer la routine, et de modifier le 
vecteur de DRAW pour qu'il pointe sur la nouvelle {schéma 3.1 v. p. 59). 
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RAM RAM ROM 


programme vecteurs 
Routine 
DRAW 


Schéma 3.1 Un vecteur. 









X JP DRAW DRAW 






Les avantages des vecteurs sont multiples : tout d'abord, ils garantissent 
la compatibilité d'un matériel à l’autre pour les programmes qui les ont 
utilisés. Même si le contenu de la ROM change (et donc le contenu des 
vecteurs), les vecteurs ne changeront pas de place. Un appel à un de ces 
vecteurs aura le même effet quel que soit le modèle d'Amstrad utilisé. 
Même si, demain, Amstrad sort un nouvel ordinateur doté de 256 Ko et 
d'un processeur graphique différent du 6845, rien n'interdit la compatibilité 
si Amstrad respecte les vecteurs pour adresser les nouvelles routines 
graphiques. Aucun autre micro-ordinateur ne peut prétendre à la même 
performance. 


Ensuite, il est facile de changer les routines soi-même, en détournant ces 
vecteurs. On peut par exemple ainsi modifier totalement les routines de 
chargement et de sauvegarde cassette, sans affecter le moins du monde le 
fonctionnement du Basic ou des programmes utilisant ces routines par 
appel de vecteurs. 


Enfin, ultime avantage, ils forment un bloc compact regroupant la totalité 
des fonctionalités de l'ordinateur. Le programmeur LM se retrouve avec 
une sorte de langage machine évolué, lui permettant de programmer une 
grande partie des tâches aussi simplement qu'en Basic. 


Le seul défaut des vecteurs est le ralentissement qu'ils provoquent lors 
de l'exécution des routines système et la place qu'ils occupent en mémoire 
vive. Mais les avantages procurés en valent largement la peine. 


Par contre, mais cela ne vient pas de l'utilisation des vecteurs, on peut 
reprocher à l'Amstrad une programmation quelque peu fantaisiste de 
certaines routines système. Ainsi, la quasi-totalité des routines graphiques 


est d'une lenteur exaspérante (toutes proportions gardées) et modifie le 
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contenu des registres. Il appartient à l'utilisateur de sauver les registres 
voulus avant de les utiliser, ce qui est souvent pénible et ralentit encore 
l'exécution. 


Toutefois, l’utilisation du Graphic Manager (terme regroupant les rou- 
tines graphiques du système accessibles par un vecteur) n'est pas dénuée 
d'intérêt, nous allons donc nous ÿ pencher. 


Outre les routines système, Amstrad a eu l'excellente idée de réserver un 
bon nombre de vecteurs pour les routines de calcul du Basic. En effet, le 
système d'exploitation proprement dit ne contient aucune routine de calcul 
en virgule flottante (nombre dits “réels”}, et si l'on ne tient pas compte du 
Basic, les programmes d'application doivent donc fournir les leurs si 
besoin est. Sur l'Amstrad, toutes les routines utiles (fonctions logarithmes, 
tangentes, y compris les routines de conversion “format binaire <—> 
format réel”) possèdent un vecteur qui permet de les utiliser comme des 
instructions du processeur. Îl y a certaines restrictions, et surtout beaucoup 
de règles strictes à respecter lors de l'utilisation de ces routines. 


Les vecteurs de l’'Amstrad sont situés en mémoire vive, de $BBO0 à 
$BE00. Ceux qui nous intéressent ici sont les vecteurs des routines 
graphiques qui sont regroupés de $BBBA à $BBFC {voir annexe 2). 


TRACÉ DE CERCLES 


Méthode de tracé 


Pour mettre en application les appels système, nous allons réaliser une 
routine de tracé de cercles. Cette instruction manque au Basic Amstrad, il 
faut donc l'implémenter. 


Le tracé de cercle peut être extrêmement simple. La preuve la plus 
évidente est le programme Basic suivant : 


10 MODE 2 

20 DEG 

30 FOR angle=0 TO 360 

40 PLOT COS(angle)*100+319,SIN(angle)*100+199,1 
50 NEXT angle 


L'exécution de ce programme permet d'obtenir un cercle de 100 points 
de large centré au milieu de l'écran. Le problème de ce programme est sa 
lenteur exaspérante. || est cependant facile de l'améliorer, même en Basic. 


En effet, bien qu'un cercle soit défini par l'ensemble de ses points sur 
360 degrés, il est tout à fait possible de n'effectuer les calculs de sinus et 
cosinus que sur 45 degrés, et de tracer tous les points associés par 
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symétrie. En l'occurrence, si X et Ÿ sont les coordonnées correspondant à 


un angle donné, compris entre 0 et 45, les points tracés seront les 
suivants : 


EX, Y) (X—Y) (—X;Y) (—X,-Y) 
(VX) (Y,—X) (—Y,X) (—Y,-X) 


Cela suppose que le centre du cercle est placé en (0,0) (schéma 3.2). 





(Rcosx, Rsinx) 


Schéma 3.2 


Les points d'un cercle. 


Grâce à cette astuce, nous pouvons donc diviser le nombre de calculs par 
un facteur de 8. De plus, si nous stockons les valeurs des sinus et cosinus 
dans un tableau, il nous suffira de rappeler ces valeurs pour tracer tous les 
cercles voulus, sans aucun calcul de sinus où de cosinus. 


Pourquoi se compliquer ainsi la vie ? La raison en est simple : que ce soit 
en LM ou non, le calcul d'un sinus nécessite une arithmétique en virgule 
flottante (des nombres réels), donc complexe, et surtout lente. 


62 |! GRAPHISMES EN ASSEMBLEUR SUR AMSTRAD 


Parlons encore de l'arithmétique flottante, justement. Qu'il s'agisse d’un 
jeu d'aventure ou d'action, ce type de calculs en LM doit généralement être 
évité, ne serait-ce qu'à cause de leur lenteur. Il résulte aussi généralement 
de ce type d’arithmétique un codage encombrant des nombres (5 octets 
sur l'Amstrad), et un manque de souplesse pesant (impossible de tes gérer 
par des opérations sur les registres). 


Mais ce n'est pas toujours simple. Notamment, comment transformer les 
valeurs des sinus et des cosinus, qui sont comprises entre —1 et 1 et toutes 
à virgule, en nombres compris entre 0 et 255 et entiers ? 


L'opération est en fait bien plus simple qu'il n'y paraît. En effet, puisque 
le sinus est compris entre —1 et 1, il suffit de le multiplier par 256 pour 
obtenir une valeur comprise entre —256 et 256 ! Ce n’est pas tout, bien sûr. 
Si nous voulons pouvoir utiliser le sinus sous cette forme, il faudra, au 
moment des calculs, se souvenir qu'il doit être divisé par 256. En 
l'occurrence, la division par 256 est aisée en langage machine. 


Résumons-nous. Nous avons trouvé le moyen de tracer huit points d'un 
coup, et de mémoriser les sinus et cosinus sous la forme de nombres 
entiers. Nous voici déjà beaucoup plus proches du LM. Le programme 3.1 
en Basic le prouve. Le tracé des cercles y est très rapide pour du Basic. Il est 
en tout cas plus satisfaisant que le programme à base de nombres réels vu 
plus haut. 


QD HRHEHHHHNHON IEEE EEE EEE 

26 ‘*# Programme 3.1 *+# 

SO HEIN EURE 

48 

0 DEFINT a-z 

6@ DIM si(45),co(45) 

7@ DEG:FOR i-=@ TO 4S:co(i)-C0S(i)x256:si (i)=SIN( 
1)#25 

80 si(i)=si(i)t(si(i)=256):coti)=coti)+(co(i)=25 
6) 

98 NEXT :i 

188 INPUT "Rayon ‘";5s 

1180 MODE 2 

12G ORIGIN 319,199 

130 FOR r=10 TO 200 STEP 5 

14Q FOR i=@ TO 45 

150 x=co(i)+r/256:y=si(i)+r/256 

168 FLOT x,y,1 

178 PLOT -x,-y,1 

180 PLOT x,-y,1 

19@ PLOT -x,y,1 

2068 PLOT y,x 

210 PLOT -y,-x 
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220 FLOT -y,x 
230 PLOT y,-x 
240 NEXT 
258 NEXT 
268 GOTO 100 


La boucle des lignes 130 et 250 trace plusieurs cercles concentriques. 
Vous pouvez à cette occasion constater l'avantage de vitesse procuré par la 
disparition des calculs de sinus et cosinus. En effet, le tracé de cercle y est 
effectué grâce aux nombres entiers stockés dans les tableaux SI et CO. 
Vous remarquerez les calculs de la ligne 150, qui permettent d'obtenir les 
coordonnées du point de base associé à un angle, en fonction du rayon R. 
Ce calcul utilise les valeurs de Sl et CO, en les divisant par 256. Mais X et Y 
sont bel et bien des valeurs entières, comme en témoigne la ligne 50 (elle 
indique que toutes les variables, sauf sur demande, seront entières). 
L'intérêt de la méthode, outre le gain appréciable de vitesse apporté, réside 
dans la précision du tracé, tout aussi belle que si des nombres réels avaient 
été utilisés. 


Transposition en assembleur 


Il ne reste plus qu'à transposer la méthode en LM. Pour ce faire, il nous 
faut considérer deux possibilités. Si vous tracez un cercle de rayon 200, 
vous constatez que les points, très proches, ne le sont toutefois pas assez 
pour donner un cercle propre. L'idéal serait de relier ces points par des 
droites. C'était simple avec notre petit programme exemple, où tous les 
points étaient dessinés l'un après l’autre dans l'ordre. Mais avec notre 
méthode des symétries, deux points contigus du cercle sont séparés par 
sept tracés de points |! 


Il nous faudra donc revoir quelque peu la méthode de tracé pour avoir 
des cercles propres. La méthode de calcul reste toutefois valable. Nous 
allons avant tout réaliser la première méthode de tracé (par points), car elle 
est plus simple et très rapide. 


Multiplication en assembleur 


Si vous avez un peu l'habitude du langage machine, la ligne 150 du 
programme vous a immédiatement sauté aux yeux à cause du signe “x” 
qu'elle contient. La multiplication est la bête noire de ceux qui cherchent à 
optimiser la vitesse d'exécution des programmes. Supposons que nous 
voulions multiplier le registre DE par À, et obtenir le résultat dans HL. Cela 
a déjà une signification : HL se singularise par ses instructions étendues, 
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c'est pour cela que nous y placerons le résultat. La première idée, puisque 
l'on multiplie un entier par un entier, est d’additionner A fois le nombre DE 
dans HL. 


Nous obtenons très facilement la routine suivante : 


MULT: LD B,A : stocke compteur dans B pour DJNZ ; 
LD HLO : mise à zéro du résultat ; 


ADDI: ADD HL,DE : additionne DE au résultat : 
DJNZ ADDI : B fois; 


Malheureusement, elle a un énorme défaut. Si le multiplicateur A vaut 3 
ou 6, tout va bien. Mais si c'est 200, nous allons effectuer 200 additions 
pour une simple multiplication ! Pour aller plus loin, il faut se pencher sur 
le fonctionnement d'une multiplication. 


Tout serait simple si nous étions en base dix : nous savons faire une 
multiplication chiffre par chiffre, en multipliant implicitement le résultat par 
1 pour le chiffre des unités, par 10 pour celui des dizaines, et ainsi de suite. 


Le fait de savoir cela nous fait déjà progresser d'un grand pas. En effet, la 
multiplication travaille exactement de la même façon (heureusement) en 
base 2. On multiplie chiffre par chiffre, en multipliant le résultat de l'unité 
par 1, puis celui de second chiffre par 2, puis par 4, 8 et ainsi de suite. 


C'est même plus simple qu'il n'y paraît : la mutiplication d'un nombre 
par un chiffre, en base deux, n’a que deux résultats : 0 si le chiffre est 0, le 
nombre lui-même si le chiffre est 1 (schéma 3.3). 


abcde 
x 1101 
abcde 
00000. 
abcde 
abcde 


Addition binaire 


1101 
x 11 4 chiffre 9 : le résultat est “9999” 
0000 chiffre 1 : le résultat est “1191” 
1101 

1101 


1 001110 


Schéma 3.3 Multiplication binaire. 
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Voyons comment multiplier le nombre “abcde” par “xyz”, en supposant 
que “abcde” et “xyz” sont binaires (exprimés en base 2, donc avec des 1 et 
des 0). Tout d'abord, nous devons regarder si z vaut 1. Si oui, nous 
retenons le résultat “abcde”, sinon 0. De la même façon pour Y : si y vaut 1, 
c'est “abcde0” que nous ajouterons au résultat précédent. Et enfin, pour le 
cas où x vaut 1, nous ajouterons “abcde00”. La somme doit nous donner le 
bon résultat. 


Maintenant, regardons de nouveau nos registres. DE contient l'équiva- 
lent de “abcde”, mais avec 16 chiffres, et A celui de “xyz” sur 8 chiffres. 
Nous pouvons utiliser HL pour stocker au fur et à mesure les résultats 
intermédiaires. 


Le reste est simple. En effet, le Z-80 dispose de nombreuses fonctions de 
rotation et décalage permettant de modifier les contenus des registres. En 
l'occurrence, il est possible de décaler DE vers la gauche par la suite 
d'instructions suivantes : 


SLA E 
RL D 


La première instruction prend le premier bit de E (le bit 7) et le range dans 
le Carry (c'est le drapeau C du registre F), puis décale les sept autres bits 
vers la gauche (le bit 6 vient en 7, le bit 5 en 6, etc.) et met un 0 au bit 0. RL 
D, pour sa part, effectue presque ia même chose (décalage à gauche du 
registre D) mais, au lieu de mettre un zéro au bit O, il y place le contenu du 
Carry. Nous avons donc ainsi décalé tout DE vers la gauche {schéma 3.4). 
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C 


Schéma 3.4 Décalage de registre 16 bits. 


Nous avons huit chiffres dans A. RRA permet de décaler ces bits vers la 
droite, et de récupérer le chiffre ainsi éjecté hors de À dans le Carry, par 


exemple pour le tester et savoir si l’on doit additionner un résultat dans HL 
ou non. 
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Schéma 3.5 


Voici finalement notre routine : 


MULT: LD B,8 
LD HL,0 
RRA 
POIDS: JP NC,SUIV 
ADD HL,DE 
SUIV: SLA E 
RL D 
RRA 
DJNZ POIDS 


Décalage à droite. 


: il y a huit chiffres à examiner dans 


A, nous allons donc faire huit 
boucles ; 


: nous mettons le stockage du résul- 


tat à zéro. 


: premier décalage : le bit 0 de A 


dans le Carry. 


: si le Carry est à zéro, le chiffre était 


zéro, il n'y a donc aucune addition 
à faire, simplement passer au chif- 
fre suivant. 


: le chiffre était 1, nous additionnons 


donc le résultat intermédiaire dans 
HL. 


: nous décalons DE vers la gauche 


en ajoutant un 0 à sa droite. De 
cette façon, DE représente le résul- 
tat intermédiaire pour le prochain 
chiffre. 


: nous envoyons par rotation à 


droite le prochain chiffre dans le 
Carry. 


: suite. jusqu'à ce que les huits 


chiffres aient été examinés. Remar- 
que : DJNZ ne modifie pas F, et ne 
touche pas le contenu du Carry. 
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Si nous nous sommes étendus sur cette routine, c'est qu'elle représente 
l'esprit même du langage machine. Dans le pire des cas, cette routine 
procède à 8 additions, au lieu de 255 pour la première version. Bien sûr, 
son fonctionnement est plus complexe. Mais l’utilisation des décalages et 
rotations montre jusqu'à quel point on peut optimiser une routine LM. De 
plus, cette routine pourra toujours servir plus tard. 


Le tracé en assembleur 


Maintenant que nous avons notre routine de multiplication, le reste est 
simple. Tout au plus y a-t-il quelques subtilités dues à la méthode de tracé. 
Notamment, il nous faut disposer de X et Ÿ, mais aussi de —X et —-Y pour 
tracer nos huit points. Or, notre routine est incapable de multiplier par un 
nombre négatif. De plus, il serait stupide de procéder à une seconde 
multiplication simplement pour inverser un signe. La solution, HL conte- 
nant notre X ou notre Ÿ, est la suivante : 


LD AL 
CPL 

LD L,A 
LD H,255 


Mais attention : ceci convient car nous savons, par définition, que X et Y 
ne dépassent pas 256 (puisqu'ils sont divisés par 256, après la multiplica- 
tion par le sinus ou le cosinus, eux-mêmes implicitement multipliés par 
256). Ensuite, HL contient effectivement —X ou —Y. 


Enfin, nous arrivons au tracé des points proprement dit. Nous l'avons 
laissé entendre plus haut, l'Amstrad nous facilite grandement la tâche à ce 
niveau. En effet, un vecteur situé en $BBEA pointe la routine PLOT. Il suffit 
d'effectuer CALL $BBEA pour allumer le point situé en (DE,HL). Seul défaut 
de la routine : elle modifie HL et DE (entre autres) et nous oblige donc à 
récupérer avant chaque tracé de point les valeurs de X, —X, Y ou —Y dans 
HL et DE. 


C'est une des particularités gênantes des routines système : une grande 
partie d'entre elles “mange” ainsi des registres que l'on aimerait conser- 
ver. Les solutions : ou bien l'on stocke les valeurs dans la pile et on les 
récupère par des POP (suivis de PUSH pour les réinstaller) entre chaque 
appel de routine, ou bien on les place à des adresses bien déterminées. 
Cette dernière solution est de très loin la plus satisfaisante quant à la 
rapidité, bien qu'elle nous oblige à grignoter un certain nombre d'octets en 
plus. 


Vous pouvez constater, dans le listing assembleur du programme 3.2 
(v.p. 69) qu'à part les points évoqués en détail ci-dessus, la routine est 
assez simple. Elle travaille exactement comme le programme 3.1 Basic vu 
plus haut. 
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18 ; 
28 ;trace de cercles et d'ellipses par LM 
38 sutilise une table des cosinus et sinus 
49 ; (prog 3.2) 
3% ;sethode point par point 
68 ; 
BBC9 70 ORIGIN: EQU #BBC9 
BBEA 80 PLOT: EQU #BBEA 
À ; 
188 ;suppose que la couleur d'ecriture graphique 
119 ;est deja selectionnee 


120 ; 
4000 130 ORG #4908 
148 ; 
4000 DD7E0G 150 BASIC: LD  A,(1X+0) srayon demande 
4083 328749 168 LD (RAYON) ,A 
4086 DD6EU2 170 LD L,(IX+2) 
4009 DD6605 180 LD H,(1X+5) ;Ÿ centre 
400C DD5EU4 198 LD E,(IX#4) 
408 DD5685 208 LD D,(IX+5) ;X centre 
4812 CDC9EB 210 CALL ORIGIN 
228 ; 
4015 G62E 230 LM: LD B,4% noabre de boucles 
4917 11C140 248 LD DE,TABLE stable des sinus et cosinus 
4@iA C5 258 POINT: PUSH BC ;sauve coapteur de boucles 
48iB 1A 269 LD A,(DE) 3Sinus 
4@iC D5 278 PUSH DE 
461D EDSBB748 269 LD DE, (RAYON) ;rayon du cercle 
4021 CDA349 27 CALL MULT saultiplie sinus(A) par rayon(DE) 
4024 60 300 D LH division par 25% 
4025 2600 310 LD H,8 ; 
320 ; 
4027 22BB48 330 LD (Y),HL ;stocke y 
348 ; 
402A 7D 350 LD AL 
402B 2F 36 CPL 
402€ &F 370 LD L,A 
402D 26FF 380 LD H,255 
402F 22BF4Q 390 LD (YN),HL 3stocke -ÿ 
400 ; 
4052 Di 410 POP DE 
4035 13 420 INC DE ;passe au cosinus dans table 
4034 A 450 LD A,(DE) 3cosinus 
4035 13 449 INC DE spour la suite de la table 
4056 DS 450 PUSH DE 
4057 ED5BB740 469 LD DE, (RAYON) 
403B CDAS49 470 CALL MULT snultiplie cosinus(A) par rayon(DE) 
40SE 6€ 400 LD LH division par 256 
A0SF 2600 490 LD H,8 
500 ; 
4041 22B949 518 LD (X),H stocke x 


520 ; 


\ 
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4044 7D I D AL 
4045 2F 548 CPL 
4046 &F JU LD L,A 
4047 26FF 568 LD H,255. ; 
4049 22BD49 570 LD (XN),H sstocke -x 
588 ; 
598 ;trace effectif d'apres X, Ÿ ,XN et YN 
680 ; 
404C EDSBB940 610 LD DE,(X) 
4050 2ABB49 620 LD HL,(Y) 
4053 CDEABB 658 CALL PLOT 3 (K4Y) 
4056 ED5BB949 64 LD DE,(X) 
4054 2ABF49 659 LD HL,(YN) 
405D CDEABB 6b0 CALL PLOT 3 (X,-y) 
4068 EDSBBD4Q 678 LD DE,(CXN) 
4964  2ABB40 680 LD HL,(Y) 
4067 CDEABB 6% CALL PLOT 5 (-x,y) 
496A EDSBBD49 788 LD DE, (AN) 
406E 2ABF4Q 718 LD HL,(YN) 
4071 CDEABB 720 CALL PLOT 3 (-X,-Yy) 
4074 EDSBBB4Q 7350 LD DE,(Y) 
4078 2AB940 748 LD HL,(X) 
407B CDEABB 750 CALL PLOT 3 (y,x) 
AQ7E EDSBBB4Q 760 LD DE,(Y) 
4082 2ABD4 778 LD HL,CXN) 
4085 CDEABB 780 CALL PLOT à Cya-X) 
4088 EDSBBF48 790 LD DE,(YN) 
408C 2AB949 808 LD HL,(X) 
408F CDEABE 810 CALL PLOT 5 C-y,x) 
4092 EDS5BBF40 620 LD DE, (YN) 
1996 2ABD49 830 LD HL,(XN) 
4099 CDEABB 840 CALL PLOT 1 -Y17X) 
4a9c Di 858 POP DE recupere table sinus et cosinus 
409) Ci 868 POP BC srecupere compteur 
40% 5 870 DEC B 
409F C21A40 869 JP NZ,POINT ysuite du trace 
402 C9 890 RET set fin ! 
70 ; 
918 sroutine multipliant DE par À dans HL 
928 ; 
A0AS 0688 930 MULT: LD B,8 il y a huit bits 
4045 210000 940 LD HL,0 
40A8 CB2F 950 SRA À sbit @ dans carry 
960 ; 
AGhA  D2AE40 970 POIDS: JP  NC,SUIV ÿpas d'addition 
4@AD 19 980 ADD HL,DE saddition de la puissance 
AQAE CB23 998 SUIV: SLA E saultiple DE par deux 
4@Ba CB12 1088 RL D siden, recupere carry de SLA E 
48B2 CB2F 1010 SRA A sdecale À, copier bit @ dans Carry 
40B4 10F4 1820 DJNZ POIDS ssuite œultiplication 
48B6 C9 105 RET 


1048 ; 
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40B7 0000 1050 RAYON:  DEFN +000 
ARE9  000Q 1860 x: DEFW 42008 
A0BB 0000 1078 Y: DEFW 40000 
40ED 000 1088 XN:  DEFW 40000 
40BF 0200 1098 YN:  DEFW 40000 
40Ci OUFFOAFF 1100 TABLE: DEFB @,255,4,295,9,255,13,255 


40c9 12FFI6FF 1110 DEFB 18,255,22,255,27,254,31,254 
4@D1 24FE28FD 1120 DEFB 36,254,40,253,44,252,49,251 
4009 SSFASAF9 1130 DEFB 55,250,58,249,62,248,66, 247 
AGEL 47F64BFS 1140 DEFB 71,246,75,245,79,243,83, 242 
40€9 SUFISCEF 1150 DEFB 88,241,92,239,96,237, 108,236 
-A0F1  GREAGCEB 1160 DEFB 104,234, 108,232, 112,230, 116,228 
40F9 7BE27CE8 1178 DEFB 129,226,124,224,128,222,132,219 
4iai G8D98BD7 1180 DEFB 136,217,139,215,143,212,147,210 
4109 9ÉCFAACC 1198 DEFB 190,207,154,204,158, 282, 161,199 
4iii ASCAABCL 1200 DEFB 165,196,168,193,171,198,175,187 
4119 B2BSBSBS 1210 DEFB 178,184, 181,181 


Pass 2 errors: 04 


Si vous possédez un assembleur, vous pouvez sauver le programme sur 
cassette ou disquette et le récupérer par la séquence Basic suivante : 


MEMORY &3FFF 
LOAD “nom”,8&4000 


Par la suite, l’utilisation se résumera à un appel “CALL &4000,X,Y,R" où 
X et Ÿ sont les coordonnées du centre du cercle et R son rayon. Vous 
pouvez exécuter les lignes 300 à 330 du programme Basic 3.2 pour 
apprécier le gain de rapidité obtenu ! 


1 HOMME DEEE DE DEEE 

20 ‘+*x Programme 53.2 ++ 

SD HN EEE DEEE DEEE DEEE 

40 

90 ‘trace de cercles en LM point par point 
68 ‘avec une table des sinus et cosinus calcules 
78 ‘interface en Basic: 

8Q ‘CALL cercle,xX,Y,R 

90 

108 MEMORY £SZ3FFF 

110 DEFINT a-z 

128 ad=&4860:1lign=240 

130 ctrl=B:READ cH:IF c$t="fin" THEN 5:08 
148 FOR i=1 TO LEN(C#H) STEF 2 

150 c=VAL("&"+MIDH(CH,1i,2)) 
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168 POKE ad,c:ad=ad+i:ctrl=ctrl+c 

17@ NEXT:READ teste:IF teste<>ctrl THEN PRINT'Er 
reur DATA ligne"lign:END 

18@ lign=lign+1i@:G0T0O 130 

190 ‘ 

2600 DATA DD/7EU@32B740DD64E@2DD66@3DDS5E84DDS6@SCDC 
9BBG6G2E11C140CS1ADSEDSEEB7, 38008 

210 DATA 4@CDAS3404C240022BB407D2F6F26FF22BF40D11 
3S1A13D5EDSBB74Q@CDA3408C26, 3431 

22@ DATA QG22B9407D2F6F26FF22BD40ED5BB9402ABB4@C 
DEABBEDSBB9402ABRF4GUCDEABB, 4142 

230 DATA EDSBBD4Q02ABB4@CDEABBEDSBBD4@2AEBF 4@CDERAB 
BEDS5BBB402A4B940CDEABEEDSB, 4828 

240 DATA BB4Q0ZABD4QCDEABBEDSBBF 4024B94GCDEABBEDS 
BBF4G02ABD4@CDEABBDI1C1WSC?2, 4777 

250 DATA 1A4009060821Q@00@CEB?2FD2AE4019CB23CB12CB2 
Fi0F4C9000000000000000G0G, 2231 

260 DATA B008FFG4FFA9FF@DFF12FF16FFIBFEIFFEZ4FE2 
8FD2CFCS1FBESFAZAF9S3EFS842, 452 

276 DATA F747F64BF54FF3S53F258F1SCEF46B0ED64EC68Eñ6 
CES70E674E478E27CE080DE84, 5480 

280 DATA DB88D98BD78FD493D298CF9ACC9ECAAIC7ASCA4A 
BC1ABBEAFBEBZ2B8BS5BS00800Y, 5242 

290 DATA fin 

300 MODE 2?2:INK @,0:INK 1,20:PLOT S00,800,1:REM € 
Selection encre graphique) 

310 FOR r=i@ TO 250 STEP 10 

320 CALL %4000,320,206,r 

330 NEXT 

340 INPUT “Tapez <ENTERS pour un autre dessin ‘"; 

a# 

350 ‘ 

560 ‘autre exemple de dessin 

3574 ‘semi-animation par modification de couleurs 

580 ‘ 

398 MODE i 

AG ‘selection des couleurs 

418 FOR i=1 TO Z3:INK i,ix4:NEXT 

420 ‘encre de trace=i au depart 

A5G i=i 

440 DEG 

45Q ‘serpentin du haut 

460 FOR r=@ TO 15@ STEP 2 

470 ‘on trace trois cercles par boucle pour obte 
nir un cercle epais 

480 PLOT 800,800,i:x-=320+C0S (r)xrx4: y=208+r*#SIN( 
r)x2: FOR 1=r TO r+4 STEP Z:CALL &4GGB,x,y,1:N 
EXT 

49@ ‘passe a l'encre suivante 
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SOB i=i+i:IF i=4 THEN i=i 

18 NEXT 

320 ‘serpentin du bas 

338 FOR r=150 TO @ STEF -2 

940 PLOT 890,800,i:x:-320-C0S (r)+#r#4:y=200-rxSINt( 
r)#x2: FOR 1=r TO r+4 STEP 2:CALL %4090,%,y,1:N 
EXT 

990 ‘passe a l'encre suivante 

J6G i=i+i:IiF i=4 THEN i=1i 

9578 NEXT 

398 ‘ 

998 ‘animation des encres 

680 

61@ k=1 

86820 FOR i=1i TO 3:INE 1+C(k+i—-1) MOD 3),i+x4 

63 FOR 1=1 TO ZB:NEXT 

640 NEXT 

658 kK=k+1i:IF k=4 THEN k=i 

668 GOTO 620 


Le programme 3.2 comporte des valeurs de vérification des DATA afin 
d'éviter les erreurs. Toutefois, nous recommandons à ceux qui veulent le 
taper d'effectuer une sauvegarde avant son exécution. || en sera de même 
avec tous les programmes du livre : n’exécutez jamais un programme LM 
avant de l'avoir sauvegardé ! 


Comme il est expliqué précédemment, une deuxième méthode de tracé 
existe : nous pouvons tracer un cercle en reliant les points par des lignes. 
Cela donne un résultat beaucoup plus agréable. En revanche, nous 
perdons sur deux tableaux : la place occupée par la routine, et la vitesse 
d'exécution. En effet, puisqu'il faut au minimum effectuer les mêmes 
opérations que dans le programme 3.2, nous ne pouvons que rajouter des 
instructions. Et de même, puisqu'il faudra, pour chaque point, ajouter un 
tracé de ligne, nous allons ralentir de façon sensible l'exécution. 


Nous ne pouvons rien faire contre la perte de place, mais nous pouvons, 
par contre, compenser la perte de vitesse en n'utilisant que la moitié des 
sinus et des cosinus (22 angles entre 0 et 45 degrés, au lieu de 44). Dans la 
théorie, le tracé obtenu est un peu plus anguleux, mais la pratique prouve 
que les lignes reliant les points amortissent les angles et donnent un tracé 
satisfaisant. 


La méthode de tracé par lignes est un peu complexe en théorie : en effet, 
on ne peut, par la routine DRAW disponible, tracer une droite qu'à partir du 
dernier point tracé. Or, notre routine ne retrouve un point contigu à un 
autre que tous les huit tracés | 


Pour venir à bout de ce problème, il nous suffit de considérer que les huit 


tracés correspondant à un angle sont en fait caractérisés par quatre 
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nombres : X, —X, Y et —-Y. Pour tracer une droite entre deux points 
contigus, il suffit donc, avant de passer au calcul des X et Y suivants (pour 
l'angle suivant), de mémoriser les X et Y venant d'être tracés. 


Dans la routine 3.3, nous avons appelé X1 la variable retenant l'ancienne 
valeur de X et Y1 celle retenant Y. Ces variables sont mises à jour 
immédiatement avant le calcul des nouveaux X et Y. Puis, on trace la ligne 
entre (X1,Y1) et (X,Y), entre (—X1,Y1) et (—X,Y), et ainsi de suite. 


10 ; 

20 ;trace de cercles et d'ellipses par LM 
30 sutilise une table des cosinus et sinus 
40 ; (prog 3.3) 

90 ;aethode par lignes 


60 ; 
BBC9 70 ORIGIN: EQU #BBC9 
BBCO 80 MOVE: EQU #BBCO 
BBF6 90 DRAW:  EQU #BBF6 
109 ; 


118 ;suppose que la couleur d'ecriture graphique 
120 ;est deja selectionnee 
130 ; 
4000 148 ORG +#4098 
158 ; 
4000 DD7EUQ 160 BASIC: LD A,(IX+@) srayon demande 
AQUS 323241 170 LD (RAYON) ,A 
4006  DD6EU2 180 LD L,(IX+2) 
4009 DDLÉQS 190 LD H,(IX#3) 3Ÿ centre 
400C DD5EG4 200 LD E,(Ix#4) 
400F DD5605 210 LD D,(IX+5) ;X centre 


4012 CDC9BB 220 CALL ORIGIN 
230 ; 
4015 ED5B3241 249 LM: LD DE, (RAYON) 
4019 SEFF 250 LD AÀ,255 
401B CDIE4i 260 CALL MULT 
AQIE 6C 270 LD L,H 
a01F 2600 280 LD H,8 
4921 223441 290 LD (X),HL 
4024 7D 390 LD AL 
4025 2F 310 CPL 
4026 6F 320 LD L,A 
4927 26FF 330 LD H,255 
4029 223841 340 LD CXN),HL sinitialisation du premier point 
A02C 210000 350 LD HL,0 
402F 223641 360 LD (Y),H 
4032 223A41 370 LD CYN),H 
4035 114441 390 LD DE,TABLE stable des sinus et cosinus 


4033 


48SA 
40SE 
40iC 


4ÿ5D 
4040 
4045 
4846 


aû4c 
4n4c 
404F 
4050 
4Q52 


H EE BE EE 
SSEeSs 6 
en Cn on Cn cn 
S CO SJ © Con 


405D 
AQGE 
AQSF 
iüoû 
Agé 
4062 
496ë 
4065 
40bA 


496C 


406F 
4070 
4071 
4072 
<&74 


21344 
113041 
Gi0e00 
EDEQ 


EDSES 241 
CDIE41 
ëC 

2680 
225641 


TD 
2 

&F 
24FF 
223441 


Di 

15 

iA 

15 

D5 
EDSES241 
CDIE4i 
(1 

2680 


223441 


Jb 


2F 

&F 
28FF 
223841 


EDSE3C4i 
2ASE4 
CDOCOBE 


EDSRS44i 


398 


408 ; 
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LD B,24 


410 FOINT: PUSH EC 


420 
450 


440 ; 


458 


468 ; 


470 
480 
390 
500 


di8 ; 


J20 
J5û 
548 
959 
doû 
d7 

500 
590 
6gû 
bi 
628 
650 


650 


ë9û 


718 


79 


758 
744 
758 


€ co C0 co © 
œ en à F3 
8 & © à © 


Cet) 
sd 
cs 


LD A,(DE) 
PUSH DE 


;sauve coapteur de boucles 
3Sinus 


stransfert des anciennes coordonnees 


LD HL,X 

LD DE,Xi 
LD EC,E 

LOIR 


LD DE, (RAYON) 


CALL MULT 
LD L,H 

LD H, 
LD  (Y),HL 
iD AL 
CFL 

LD L,A 
LD H,255 


LD (YA) ,HL 


FOF DE 
INC DE 

LD A,(DE) 

INC DE 

PUSH DE 

LD DE, (RAYON) 
CALL MULT 

LD L,H 

LD H,8 


LD  (X),HL 


LD ALL 
CL 

LD L,A 

LD H,25 
LD GXN),HL 


;transfere anciennes coordonnees 


srayon du cercle 
smultipiie sinus(A) par rayon (DE) 


nc 


division par 2 


; 
;stocke y 


sstocke -y 


spasse au cosinus dans table 
;Cosinus 
spour la suite de la table 


saultiplie cosinus(A) par raÿon(iE) 
‘division par 256 


;3tocke x 


sstocke -x 


strace effectif d'apres X, Ÿ ,XN et YA 


3 


LD DE, (Xi) 
LD HL,(Y1) 
CALL MOVE 


LD DE,{X) 
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4085 
4096 
4088 
408F 
4092 
4995 
4096 
4g9c 
489F 
4QAS 
agAG 
409 
4@AD 
48B0 
AQES 
4087 
AGEA 
48BD 
aaci 
4Qc4 
40c7 
4QCE 
AQCE 
A@bi 
4QD5 
4005 
AQDB 
AGDF 
40E2 
AQES 
4@E9 
AGEC 
AQEF 
aQF: 
AQF 6 
agro 
4QFD 
4108 
MES 
4107 
412À 
418D 
qiit 
41i4 
4117 
4118 
4117 
411À 
410 


2A364i 
CDF6BE 
EDSBEC4i 
244241 
CDCGBE 
EDSBS441 
2A3A4Ï 
CDF&BE 
EDSB4041 
2ASE41 
CDCOBE 
EDS5E3841 
24364 
CDFGBE 
ED5B404i 
244241 
CDCUEB 
EDSB5641 
2ASA4I 
CDF6BE 
EDSESE4 
2A3C41 
CDCOEB 
EDSB3641 
24344 
CDF6BE 
EDSESE 41 
24404 
CDC@BB 
EDSES641 
245341 
CDF 6BB 
EDSB4241 
2ASC41 
CDCOEE 
EDSB:A4 1 
243441 
CDF EEE 
ED5E4741 
2AAG41 
CDC@BE 
EDSESA41 
23841 
CDF 6BE 
Di 

Ci 

5 
CSA 
C9 


680 
89û 
708 
918 
920 
750 
540 
950 
968 
970 
980 
998 
1000 
1810 
1020 
1050 
1049 
1050 
1060 
1878 
1880 
1890 
1108 
1110 
1120 
1150 
1140 
1150 
1168 
1170 
1158 
1190 
1200 
1210 
220 
123 
1240 
1250 
1260 
1270 
1208 
1250 
1300 
1310 
152 
i3:0 
1343 
1550 


1368 


l: 


LD HL,i) 
CALL DRAW 

LD DE, (XI) 
LD HL,(YNI) 
CALL MOVE 

LD DE, (X) 
LD HL,(YN) 
CALL DRAW 

LD DE, (XNI) 
LD HL,(Y1) 
CALL MOVE 

LD DE, (XN) 
LD HL,iv) 
CALL DRAW 

LD DE, (XML) 
LD HL,(YN) 
CALL MOVE 

LD DE, (IN) 
LD HL,CYN) 
CALL DRAW 

LD DE, (I) 
LD HL,(X1) 
CALL MOVE 

LD DE, (Y) 
LD HL,(X) 
CALL DKAW 

LD DE, (Y1) 
LD HL, (XML) 
CALL MOVE 

LD DE, iv) 
LD HL, UN) 
CALL DRAW 

LD DE, (YN1) 
LD HL, (Xi) 
CALL MOVE 

LD DE, (YN 
LD HL,(X) 
CALL DRAK 

LD DE, (Yi 
LD HL,(XNI) 
CALL MOVE 

LD DE, (YN) 
LD HL,UXN) 
CALL DRAW 
POF DE 

POF EC 

DEC E 

JF NZ,FCINT 
RET 


(y) 


3 (x37y) 


sx y) 


31%) 


HS Pie à 


sy, x) 


ty x) 
recupere table sinus et cosinus 
;recupere cimpteur 


jsuite du t'ace 
set fin ! 
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1378 ; 
1388 sroutine multipliant DE par À dans HL 
1398 ; 
MIE G6ÿ8 1408 MULT: LD B,8 il y a huit bits 
4120 210002 1410 LD HL,8 
4123 CB2F 1420 SRA À bit @ dans carry 
1438 ; 
25 D22941 1440 POIDS: JF  NC,SUIV ;pas d'addition 
4128 19 1459 ADD HL,DE saddition de la puissance 
4129 CB2S 146 SUIV: SLA E saultiple DE par deux 
412B CB12 1478 RL D sidem, recupere carry de SLA E 
412D CB2F 1480 SRA À ydecale À, copier bit @ dans Carry 
412F 18F4 1498 DJNZ POIDS ;suite qultiplication 
4131 C9 1590 RET 
1516 ; 
4132 0080 1528 RAYON: DEFW #0008 
4134 GD00 1538 X: DEFH #0008 
4136 OGU0 1540 Y: DEFH #0008 


4138 0U0 1559 XN: DEFH #0008 
41ïA 0000 1568 YN: DEFH #0000 
ASC 0200 1570 X1: DEFH 40008 
AiTE OU 1588 Yi: DEFH 40008 
4149 00 1590 XN1:  DEFW #0090 
A142 O0aû 1600 YNI:  DEFW #9u00 
4144 GGFFO9FF 1610 TABLE: DEFB 6,295,9,255 


4148 12FFIBFE 1620 DEFB 18,295,27,254 
A14C 24FE2CFC 1630 DEFB 36,254,44,252 
4150 ZSFAZEFS 1640 DEFR 53,250,42,248 
4154 A47F6AFFS 1650 DEFE 71,246,79,243 
4158 SFIGQED 1660 DEFB 88,241,96,237 
ASC 6BEA7UES 1470 DEFB 104,234,112,220 
dieu 7BE280DE 1680 DEFB 120,226, 128,222 
4164 EBD9EFD4 1690 DEFE 136,217,143,212 
4168 GéCFIECA 1700 DEFE 150,207, 158, 202 
AiëC ASCAABBE 1710 DEFE 165,196,171,190 
4170 EZBGBSBS 1720 DEFB 178,184,181,181 


Si l'on excepte la disparition dans la table sinus/cosinus de la moitié des 
Valeurs, il n'y a aucune autre différence entre les routines 3.2 et 3.3. 


Le tracé de cercles concentriques du programme 3.3 (v.p. 78) est 
beaucoup plus joli que celui du 3.2, il faut le reconnaître. Mais vous pouvez 
aussi constater qu'il est plus lent, et que la routine est plus encombrante. 
Pourtant, les différences sont faibles, et nous avons divisé le nombre de 
calculs par deux. 
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LQ HIDE DEEE DENE IEEE EEE JE EE 

20 ‘*#* Programme 3.3 +*#+# 

SO “MIE IEDE EEE DE DEEE EE JE 

40 ” 

90 ‘trace de cercles en LM par lignes 

68 ‘avec une table des sinus et cosinus reduite 

78 ‘interface en Basic: 

84 ‘CALL cercle,X,Y,R 

90 

100 MEMORY &3FFF 

118 DEFINT a-z 

128 ad=&4000:1ign-200 

130 ctrl=@:READ cH:1F c#="fin" THEN 3530 

148 FOR i=1 TO LEN(c#) STEF 2 

150 c=VAL("&"+MID#(cH,1i,2)) 

168 POKE ad,c:ad=ad+i:ctrl=ctrl+c 

178 NEXT:READ teste:I1F teste<>ctrl THEN PRINT'Er 
reur DATA ligne'"lign:END 

186 lign=lign+i0:GOTO 13530 

190 

2600 DATA DD/E4G325241DD6E82DD6603DDSE84DDS580S5CDC 
9BBEDSB32413EFFCD1E418028, 36081 

218 DATA Q8223441/7D2F6F26FF22584121008022356441225 
A41114441B0818CS1AD5215441, 1991 

228 DATA 113C41GU1U@080BEDBGEDSRE3241CD1E416C2600225 
6417D2F6F26FF223A41D1151A, 2593 

238 DATA 13DS5EDSBEZ41CD1E418028082254417D2F6F26F 
F225941EDS5B3C412A3E41CDC06, 3022 

248 DATA BBEDSB34412A3641CDF6BBEDSB3C412A4241CDC 
GBBEDSB:4412A3A41CDF6BBED, 4128 

2958 DATA 35B4Q@412A3E41CDCOBBEDSÉE:841243641CDF6BHE 
D5B40412A4241CDCOBEEDSBSS, 5819 

260 DATA 412A3R41CDF6BBEDSBSE412A5C41CDC@BBEDSES 
6412A3441CDF6BBEDSBSE412A4, 3815 

27@ DATA 48@41CDCOBBEDSB36412A5841CDF4BBEDS5E42412 
A3C41CDCOBEBEDSBSZA412A5441, 5781 

280 DATA CDFGBBEDSEB42412A4041CDC@BBEDSEZA412A384 
1CDF6BBD1C10S5C25A40C90608, 4042 

29Q DATA 21Q0G0@CBR2FD2294119CHB23CB12CB2F10F4C97000 
GOBGOGPOGBOGGBCOPPOGPUOGGOG, 17974 

308 DATA GOUGBOGGOGGAGFFA9FF12FFIBFEZAFEZCFCESFASEF 
847F64FF358F 160ED68EA70E6, 42535 

318 DATA 78E280DE88D98FD498CF9ECAASCAABBEB2E88SE 
SOOGPOAVBAOUGOUOUVAUGUUGB, 325857 

328 DATA fin 

3506 MODE 2 

348 FOR r=10 TO 250 STEF 10 

350 CALL %&4000,329,2008,r 

368 NEXT 
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Inconvénients des routines systèmes 


Alors que nous devions obtenir une routine à peine plus grosse et plus 
rapide, il se produit le résultat inverse. 


Nous allons nous répéter pour l'expliquer. D'une part, les routines 
systèmes de l’'Amstrad sont lentes, très lentes. Elles sont même quasiment 
inexploitables pour celui qui veut gérer ses graphismes à très grande 
vitesse. Nous ne reviendrons pas là-dessus : la seule solution reste l'accès 
direct à la mémoire écran. Toutefois, le tracé d’un point ou d’une droite ne 
peut guère être très rapide si l’on utilise le système de coordonnées 
standard. En effet, PLOT et DRAW sont lentes parce qu'elles tiennent 
compte de tout : les limites de la fenêtre graphique, la couleur sélection- 
née, etc. 


D'autre part, nous y revenons, les routines sont puissantes et nom- 
breuses, mais elles utilisent sans scrupule les registres disponibles, ce qui 
oblige le programmeur à de lourdes tâches de sauvegarde. Ces tâches, 
dans le programme 3.3, occupent à elles seules 112 octets lors des 
16 appels de routines système. 


Toutefois, si nous avons réalisé ces routines de tracé de cercle, ce n'est 
pas uniquement pour attirer votre attention sur ces problèmes. En effet, si 
vous essayez d'imaginer un tracé de cercles ne passant pas par les routines 
systèmes, vous comprenez immédiatement pourquoi celles-ci ne sont pas 
inutiles, malgré tous leurs défauts. Certes, la gestion de graphismes figés, 
comme dans les jeux d'action, se contente facilement de la plus rapide 
solution : l'accès direct à la mémoire écran. Mais il en va tout autrement 
dès que l'on parle de graphismes obtenus par calcul : il faut transcrire le 
résultat des calculs en données pour la mémoire écran, on voit alors surgir 
l'intérêt de routines systèmes prêtes à l'emploi et d'un système de 
coordonnées bien gérées. 


TRACÉ D'HISTOGRAMMES 


Histogramme 


Qu'il s'agisse de synthèse d'image, de graphismes utilitaires profession- 
nels ou de figures géométriques, et à condition que la vitesse d'exécution 
ne soit pas déterminante, le programmeur devra profiter de l'existence de 
ces routines prêtes à l'emploi. Elles forment un macrolangage graphique. 


Nous allons d'ailleurs pouvoir le constater dans ce qui suit. Nous avons 
évoqué plus haut les graphismes professionnels tels que les camemberts 
ou les histogrammes. La programmation d'un tracé d'histogrammes ne 
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manque pas d'intérêt. Les problèmes posés ainsi que les applications 
possibles justifient pleinement une étude approfondie. 


Pour cela, nous allons examiner le problème. Un histogramme est la 
représentation, par des colonnes, d'une suite de valeurs, la hauteur d'une 
colonne étant proportionnelle à la valeur qu'elle représente (schéma 3.6). 


100 


50 


—50 


—100 





Schéma 3.6 Exemple d'histogramme. 


Ces diagrammes sont souvent utilisés en gestion, afin de visualiser, sous 
forme simple, un tableau de valeurs comme des résultats de ventes sur une 
année. |! est connu qu'un bon dessin vaut toutes les listes de chiffres du 
monde. Les histogrammes en sont un vivant exemple, et ils peuvent entrer 
dans une multitude d'applications. 


L'Amstrad ne possède pas d'instruction de tracé automatique d'histo- 
grammes. Nous allons donc y remédier. 


Fenêtre de travail 


Le principal problème est le suivant: alors que l'écran de notre 
ordinateur est d'une taille limitée (en mode 1, nous ne disposons que de 
320 points de large sur 200 de haut), nous ne connaissons rien des valeurs 
à représenter. Elles peuvent aussi bien s'échelonner entre 0 et 10 qu'entre 
—32768 et +32767. Notre routine devra donc effectuer un calcul d'échelle 
afin de caser au mieux les valeurs sur l'écran. 
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En faisant un compromis, nous allons volontairement adopter le mode 1 
lors du tracé. Si nous prenons le mode 0, la résolution horizontale risque 
d'être insuffisante. N'oublions pas en effet que, dans ce mode, l'ordinateur 
ne peut plus afficher que vingt énormes caractères par ligne. Ce sera peu si 
nous voulons placer quelques commentaires autour du schéma. Et en 
mode 2, nous n'avons plus que 2 couleurs, c'est-à-dire que les colonnes 
seront toutes de la même couleur. Le résultat serait d’une affligeante 
tristesse. Il est désormais admis, en milieu professionnel (gestion, 
commercial...) que le sérieux d’un sujet ne doit pas pour autant le rendre 
triste. Nous déciderons donc de colorer un peu l'écran. Une série de 
colonnes uniformes n'est guère plus enthousiasmante qu'un tableau de 
chiffres. 


L'écran en mode 1 dispose de 320 points sur 200. Mais il va également 
falloir réduire cet espace. Il est sage de laisser une place libre autour du 
schéma. || sera ainsi possible de placer un titre, une échelle des valeurs, 
des commentaires. 


Le choix des espaces libres est purement conventionnel. La logique 
conduit toutefois à garder de la place à gauche et en dessous du dessin. À 
gauche, car il est alors possible d'afficher les valeurs correspondant aux 


colonnes, en dessous, pour écrire un titre ou un libellé sous chaque 
colonne. 


Le rectangle restant, qui recevra les colonnes, sera placé à partir du point 
physique (50,20). Cela nous laisse 270 points de large et 180 de haut. En 
compensation, il y a de la place pour six caractères à gauche, et pour deux 
lignes de caractères en dessous. Le compromis est acceptable 
(schéma 3.7). 


GRAPHIQUE 


199° 
nl 
an 
SE 


319 


20 + -) | 


PRE 








SURFACE 

CARACTERES SURFACE 

POUR RESERVEE A 
ECRAN COMPLET COMMENTAIRES L'HISTOGRAMME 


Schéma 3.7 Écran réservé à l'histogramme. 
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Le programme appelant demandera le tracé de N valeurs quelconques. 
Pour simplifier le tracé, il devra également fournir une autre donnée. La 
largeur des colonnes (en nombre de points) est vitale pour la routine. Si 
nous traçons 10 valeurs, nous pouvons utiliser jusqu'à 180/10 soit 18 
points de large pour chaque colonne. Le dessin occupera ainsi la largeur 
maximale qu'on peut lui accorder. Mais en revanche, s'il faut tracer 30 
valeurs, il faut réduire cette largeur de colonne, faute de quoi les vingt 
dernières valeurs se trouveront à droite, en dehors de l'écran ! 


En réalité, le calcul automatique de la largeur de tracé est simple et 
pourrait être intégré à la routine. Mais rien ne dit que l'utilisateur désire 
vraiment un histogramme occupant tout l'écran graphique. || pourra donc, 
en modulant la largeur des colonnes, agir sur l'encombrement horizontal 
du schéma afin de libérer de l'espace à droite. 


Cela pourrait par exemple être utilisé pour incorporer un second schéma 
à droite de l'histogramme {schéma 3.8). 
















ECRAN COMPLET partie disponible 


histogramme 
tassé 





Schéma 3.8 AUTRE SCHEMA 


Histogramme tassé pour laisser place à droite (autre schéma). 
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Enfin, ultime décision influant sur le tracé, la routine espacera chaque 
colonne par deux points graphiques. Cela permettra d'apporter un peu de 
clarté, quoique la chose soit discutable. Si les valeurs à représenter sont 
proches les unes des autres, cette pratique est utile. Si par contre les 
valeurs sont très différentes, c'est un peu superflu car les différences de 
hauteur clarifieront automatiquement la situation. Mais comme toujours, le 
programmeur doit prendre en compte le cas extrême. En l'occurrence, le 
risque d'un manque de clarté n’est guère admissible. Autant le prendre en 
considération. 


Les fonctionnalités de la routine se précisent. À partir d'un tableau de 
valeurs, il faudra tracer N colonnes de L points de large, espacées par deux 
points, et utilisant un axe des Ÿ réduit grâce à un calcul d'échelle. 


Calcul d'échelle 


Si nous traçons nos colonnes directement à partir des valeurs, le 
programme ne pourra traiter que des valeurs situées entre 20 et 199. Bien 
entendu, il est hors de question d'accepter cette contrainte. || faut un calcul 
d'échelle qui permette de tracer des valeurs grandes ou petites, positives 
ou non. 


Nous avons déjà mis en garde le lecteur contre les nombres réels, 
appelés aussi flottants. Nous allons donc nous répéter. En effet, le comble 
du luxe serait de pouvoir soumettre au programme des nombres à virgule. 
Malheureusement, plusieurs problèmes s'y opposent. Tout d'abord, le 
traitement des nombres flottants est lent et compliqué. Le codage d'une 
valeur ne tient plus dans un seul registre du processeur. De plus, 
contrairement aux autres routines système de l’'Amstrad, les vecteurs des 
routines mathématiques associées ne sont pas situés aux mêmes adresses 
sur les différents modèles de l'ordinateur. Cette difficulté peut être 
contournée lors de l'assemblage, mais elle complique de toute façon la 
programmation d'une routine compatible avec tous les Amstrad. 


La seule contrainte, peut-être gênante de la routine, sera donc la 
suivante : les valeurs devront être au format entier, ce qui signifie tout de 
même qu'il est possible de traiter les nombres entiers de -32768 à 32767. 


Comment procéder toutefois pour représenter par exemple 10 nombres 
échelonnés entre 0 et 1 ? Nous avons déjà croisé la solution lors du tracé de 
cercles. Une valeur comprise entre 0 et 1 peut facilement être multipliée par 
100 (ou toute autre valeur assez grande transformant les décimales en 
nombre entier significatif) pour donner une valeur comprise entre 0 et 100. 


Il sera donc à la charge du programme appelant de prévoir le cas de 
valeurs situées dans un petit intervalle proche de zéro. Il suffira de 
multiplier toutes les valeurs (par exemple par 100) et de les transformer en 
entiers avant de les soumettre au traceur d'histogrammes. 
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Les choses se précisent encore. Mais il reste un point obscur non 
négligeable. Comment la routine va-t-elle représenter un tableau de 
valeurs situées entre 0 et 100, si elle doit aussi être capable de représenter 
—32000 et +32000 sur le même écran, tout cela en 180 points seulement de 
hauteur ? 


Ce problème donne déjà le premier travail de la routine. En parcourant le 
tableau de valeurs, elle devra repérer le maximum et le minimum de façon 
à pouvoir calculer l'échelle de tracé vertical (à savoir le nombre d'unités 
représentées par un seul point graphique de hauteur). 


Malheureusement, une difficulté surgit. Si nous avons des valeurs 
positives et négatives, il nous faudra calculer la position verticale de l'axe 
des X, c'est-à-dire la position gaphique verticale associée à la valeur zéro. 
Dans ce cas, la valeur minimale sera associée à l’ordonnée 20 (le bas de 
l'écran en ce qui concerne la fenêtre fixée par convention), et la plus grande 
valeur à l'ordonnée 199 (le haut de l'écran). Mais qu'adviendra-t-il si les 
valeurs sont toutes plus grandes que zéro ou toutes négatives ? En effet, 
une autre convention dans les histogrammes est de toujours représenter la 
valeur zéro. Si les valeurs se trouvent entre 30000 et 32000, il faudra tout de 
même représenter le zéro en bas de l'écran, alors que le calcul du minimum 
nous affirmera “32000 en bas de l'écran”. 


Dans le cas de nombres négatifs, le zéro sera situé en haut de l'écran. 
Tout cela se résume en trois cas. Pour poursuivre l'étude, il faut adopter 
quelques notations. MIN et MAX représenteront les valeurs extrêmes du 
tableau. YGMIN, YGMAX et YGZERO seront les ordonnées graphiques 
(entre 20 et 199) associées respectivement à MIN, MAX et 0. 


Les trois cas étudiés se résument simplement (schéma 3.9). 


@ MIN<MAX<0 


YGMAX=YGZERO +199 






—---+ YG calculé 


MIN |--------- SEE __+ YGMIN+20 


Valeurs 
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(2) MIN<O<MAX 


MAX |-- ——+ YGMAX+199 





YGZERO calculé 


MIN |—--—---- ———+ YGMIN=20 





YGMIN=YGZERO=20 


Schéma 3.9 Les trois cas de tracés 


— Si MIN < MAX < 0 : toutes les valeurs sont négatives. YGMIN=20, et 
YGMAX=YGZERO=199, tout en haut de l'écran. 


_— Si MIN < 0 < MAX: il y a des nombres positifs et des négatifs. 
YGMIN=20, YGMAX=199, et YGZERO doit être calculé. Une règle de trois 
donne la valeur YGZERO= —MIN/(MAX-—MIN) x 180 + YGMIN. 


_— si 0 < MIN < MAX: toutes les valeurs sont positives. YGMIN=— 
YGZERO=20, et YGMAX=—199. 


Le cas MAX < 0 < MIN est évidemment impossible. L'algorithme du 
début de routine apparaît maintenant : 


— calculer MIN et MAX par examen des valeurs du tableau 
— YGMIN=20 
— YGMAX=199 
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— si MIN>0, YGZERO=20 
Sinon, si MAX<O0O, YGZERO=199 
Sinon, YGZERO=-MIN/(MAX-—MIN) * 180 +YGMIN 


Le tracé des valeurs est un peu plus complexe, mais tout est relatif. Il faut 


néanmoins distinguer le cas des valeurs négatives et positives 
(schéma 3.10). 


@ [ v0 






YGZERO 





V 
= _ R 
YG = YGZERO + MAX x (YGMAX — YGZERO) 








@) V<0 


YGZERO 









YG = YGZERO — x (YGZERO — YGMIN) 


MIN 


Schéma 3.10 Tracé des valeurs suivant signe. 
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Pour tracer la colonne associée à une valeur, il faut calculer l’ordonnée 
graphique qui lui est associée. Cette ordonnée est appelée YG. Le calcul de 
YG diffère selon le signe de la valeur V en question : 


— si V est positive, YG = YGZERO + V/ MAX * (YGMAX-—YGZERO) 
— si V est négative, YG = YGZERO -— (-V)/(-MIN) + (YGZERO—-YGMIN) 


Multiplication et division en assembleur 


Si le reste semble simple, quelques obstacles se dressent encore, dus à 
la programmation en langage machine. En effet, la routine aura besoin de 
multiplication et de division. Mais il est question ici de nombres entiers 
(d'où un problème pour la division). La division est plus complexe que la 
multiplication. || est hors de question ici de programmer une division par 
rotation et décalage. Le mécanisme d'une division est trop éloigné des 
opérations binaires pour cela. Le programme se contentera d'un al- 
gorithme simple qui a fait ses preuves : retrancher le diviseur au dividende 
jusqu'à obtenir un reste inférieur au diviseur. Cela constitue bien sûr une 
division entière : il n'est pas question de nombres à virgule. 


Malheureusement pour la rapidité du programme, cette contrainte 
entraîne une impossibilité d'optimisation importante. En effet, les seules 
divisions à effectuer sont —-MIN/(MAX—MIN), (YGZERO-YGMIN)/(-MIN) 
et (YGMAX-YGZERO)/MAX. Or, si le premier calcul ne pose pas de 
problème évident, il en est autrement des deux autres. Le dividende se 
situera toujours entre 0 et 180, mais il se peut que le diviseur (MAX ou 
— MIN) lui soit inférieur. Dans ce cas, puisqu'il est impensable de traiter les 
décimales du résultat, celui-ci sera zéro. || s'ensuivra que toutes les valeurs 
seront assimilées à zéro. 


Or, le calcul de YG pour une valeur donnée nécessite ces valeurs. S'il 
avait été possible de les calculer avant le tracé, de les transformer en 
constantes pour réduire les calculs de tracé (suppression de la division), la 
vitesse de tracé aurait été sensiblement améliorée. 


Pourtant, il faut se rendre à l'évidence : il est impossible d'optimiser 
ainsi. Les divisions devront obligatoirement être effectuées pour chaque 
tracé, car le problème évoqué ci-dessus n'est pas le seul. 


La division entière est génératrice d'une erreur de calcul non négligeable. 
En théorie, 16 X 10 / 3 donne le réel 53.33, soit 53 si nous assimilons la 
division à une division entière. L'erreur de calcul de 0.33 n'est pas visible au 
niveau des nombres entiers. Par contre, si nous inversons l'ordre des 
opérations, 16 / 3 X 10 qui devrait être identique à la première opération 
donne le résultat 5.33 X 10 qui devient 5x10, soit 50 si la division est 
entière. Et cette fois-ci, l'erreur est visible : 50 au lieu de 53. Car si l'erreur 
de calcul provoquée par la division entière est toujours de 0.33 et 
négligeable, nous l'avons multipliée par dix. Elle est devenue une erreur de 
3.33. 
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La conclusion de cet épisode est simple : quel que soit le calcul à 
effectuer, la division devra être placée tout au bout des opérations, de 
façon à obtenir une erreur de calcul toujours inférieure à 1. 


On peut compenser cette perte. La division entière donne un quotient et 
un reste. || est possible de multiplier ce reste (qui, lui, est entier et inférieur 
au diviseur) par le diviseur et d'ajouter le nombre ainsi obtenu après la 
multiplication du quotient. Ce principe donne bien 53 pour notre exemple 
de petite opération. En effet, 16/3 donne 5, mais nous retenons un reste de 
1, qui donne 3 une fois multiplié par le diviseur. Ensuite, nous l’ajoutons à 
5xX10, ce qui conduit à un résultat correct. 


Mais il s’agit bien d'un palliatif. Il suffit de remplacer 10X16/3 par 
16xX 10/3 pour le constater. La division donne un quotient de 3 et un reste 
de 1. Multiplié par le diviseur, le reste devient 3. Si nous multiplions, selon 
la méthode décrite, 16 par le quotient en ajoutant ensuite ce reste 
compensé, nous obtenons 48+3=51, ce qui est mieux que 50, mais 
toujours faux. 


Si nous adoptons cette solution dans le programme, la division effectuée 
pour chaque valeur sera transformée en addition, et il n’y aura qu'une 
simple division réalisée avant le tracé des colonnes. Mais la promesse de 
rapidité qui en découle ne doit pas être prise en compte. En effet, le but 
d'un traceur d'histogrammes est d'être fidèle. Et cette méthode du reste 
compensé, valable dans certains cas, ne l’est plus pour éette simple raison. 
Le risque d'erreur de calcul, et donc d'erreur dans la représentation des 
valeurs, est éliminatoire. L'histogramme est censé donner une image de la 
réalité, et doit donc respecter les données fournies, les traiter avec un 
maximum de précision. 


La division aura donc lieu au cours de chaque calcul de YG. Cela nous 
pose toutefois un dernier problème jusqu'alors ignoré. Puisque nous 
effectuerons la multiplication de V par (YGMAX-YGZERO) avant la 
division, nous risquerons ce qu'on appelle en langage technique un 
Overflow, ou encore un dépassement de capacité. La multiplication que 
nous avons créée pour le tracé de cercles permet de multiplier deux 
nombres 8 bits, et d'obtenir fort logiquement un nombre 16 bits. lei, V est 
un nombre 16 bits et (YGMAX—-YGMIN) un nombre 8 bits. Nous allons 
donc obtenir, dans le pire des cas, un nombre 24 bits, qui ne tiendra jamais 
dans un des registres du processeur (schéma 3.11 v. p. 89). 
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3C | 48 | (2 octets = 16 bits) L_06 | 32 
x [1 0}(1 octet = 8 bits) x 02 | 


(8) LCA 180) [OC 64] 
OVERFLOW ! PAS D'OVERFLOW 


LE RESULTAT 
TIENT EN 16 BITS 


Schéma 3.11 Overflow multiplication. 


La solution existe, bien sûr. Elle consiste à ne pas utiliser, pour le 
stockage des résultats intermédiaires et du résultat total, un registre 16 bits 
du processeur, mais 3 octets successifs de la mémoire. En traitant ces 3 
octets comme des registres 8 bits du processeur, nous obtiendrons un 
équivalent facilement manipulable {schéma 3.12). 





REGISTRE 
(IX+0) 
A (IX+1) —+ $5C4803 
{IX+2) 
Assimilable à 3 registres A. 
Schéma 3.12 Accumulateur 24 bits. 


D'autre part, ce résultat devra être divisé. Là aussi, impossible d'utiliser 
les registres 16 bits du Z-80 pour soustraire le diviseur (qui est de 16 bits). 
En réalité, cela sera possible dès que le reste descendra en dessous de 
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17 bits. La division aura donc lieu en deux étapes : d’abord avec la zone de 
3 octets et un registre 16 bits tant que le poids fort du dividende est non 
nul, puis avec deux registres 16 bits. 


Programmation de la méthode 


Avant de poursuivre l'étude de la programmation en langage machine, il 
serait sage de tester l'algorithme en Basic. C'est l'objet du programme 3.4. 


LD HEIN IEDEDEDEJE DEEE DEEE 

20 ‘+**x programme 3.4 ** 

EG HEC MEIE DEEE EE 

48 ‘ 

38 ‘Trace d'histogrammes en Easic 

68 ‘d'apres un tableau de valeurs aleatoire. 

78 ‘ 

8QG DEFINT a-z:DIM tablo(30):1arg-2%:nbval=1t 

90 FOR i=i TO nbval:tablo(i)-=RND*:@8@-15@:NEXT 

108 MODE 1:FOR 1i=1 TO 3S:INK 1,8xi:MNEXT 

110 nmax=tablo(i):nmin=nmsx 

126 FOR i=i TO nbval:IF nminitablo(i) THEN nmin= 
tablo{(i):GOT0 140 

13@ IF nmax<tablo(i) THEN nmax=tabloti) 

148 NEXT 

150 ygmin-=20:ygmax=199 

168 IF nmax<@ THEN ygzero=i99:G0TO 2ig 

17@ IF nminiG THEN ygzero=26@:G0OTC 218 

180 ygzero-=ABS (nmin) / (nmax-nmin)+(199-20) 

198 MOVE 359+%x2,ygzero*x?2:DRAW 839 ,ygzerox2,5 

2808 MOVE 39*2,48:DRAW 239%2,399,5 

219 absi=4@:inkk=1: FOR i=il TO nbval 

2208 IF tablo(i)}5@ THEN yi=ygzero:y2=ygzercttab 
10(1)/nmax%(ygmax-ygzero) ELSE yil=ygzero-tabl 
o{i)/nminx(ygzerc-ygmin):y2=ygzerc 


23 FOR x=absi TO absi+larg 

240 MOVE x#42,y1X2:DRAW x#2,y2x2,inkk 

250 NEXT 

260 absi=absi+larg+i:inkk=inkk+li:s IF inkk=4 THE 
N inkk=i 

27@ NEXT 


286 LOCATE 1,i:END 


Il correspond trait pour trait à ce que nous avons déjà défini. Il trace 
l'histogramme d'un nombre aléatoire de valeurs... aléatoires elles aussi. 
On constate que la méthode est bonne. Le tracé des colonnes, bien que 
réalisé en Basic, reste suffisamment rapide. 
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Le programme 3.5 est la traduction en langage assembleur de notre 
algorithme. Son fonctionnement est limpide, il respecte les opérations 
définies au cours de l'étude. Voyons son organisation en détail. 


BC62 
BCSF 
BC2C 
BCDE 


4200 


4200 
4285 
4206 
4209 
420C 
420F 
4212 


215 
4218 
421 
421B 
A21E 
42iF 
422 
4221 
4225 
4229 
422A 


422B 
422C 
422) 
422€ 
422F 
4233 
4236 
42 


423) 


DD7EQ8 
324F44 
DD7EU2 
325044 
DD6EG4 
DD668S 
225144 


3A504 
FEU2 


4 

2 

4% 

2 
ED5B5344 
CD8D45 
D24042 
ED435544 
C34€42 


10 ; 


28 ;Programne de trace d'histogrames 
30 jen aode 1 (prograsne 3.5) 


40 ; 


50 ;Syntaxe: CALL &4200,@tableau(1) ,nombre de valeurs, largeur 


68 ; 

70 ;routines systemes utilisees : 
86 VERLIN: EQU #BC42 

90 HORLIN: EQU #BCSF 

100 INKCOD: EQU #BC2C 

110 MODE: EGU #BC9E 

120 ; 

130 RG +#4209 

148 ; 

158 BASIC: LD A,(IX+0) 
160 LD  (LARG),A 
170 LD A,(IX+2) 
180 LD (NEVAL),A 
190 LD L,t(IX#4) 
280 LD H,(1X+5) 
210 LD  (TABLO),HL 
228 ; 
238 LM: LD A, (NBVAL) 
240 CP 2 
250 RET C 

268 LD HL,(TABLO) 
270 LD C,(HL) 

288 INC HL 
290 LD B,(HL) 

300 LD  (MAX),BC 
310 LD (MIN),HC 
320 INC HE 

350 DEC A 

34 ; 
3% recherche des extremas 
360 ; 

370 LOOPI: LD C,(HL) 

380 INC HL 
390 LD B,(CHL) 

400 INC H 

410 LD DE, (MAX) 
429 CALL CPDEBC 
40 JP  NC,PAMAX 
440 LD (MAX),BC 
450 JP SUITE 


460 ; 


;trace une ligne verticale 
trace une ligne horizontale 
;codage du nunero d'encre 
;changenent de aode 


;seaorise largeur des colonnes 


;sesorise le nombre de colonnes 


;menmorise l'adresse des valeurs 


À utilise comme coapteur 
;aoins de 2 valeurs ? 
joui: ne rien faire 

;HL pointe les valeurs 


3BC contient la premiere valeur 


;extremas initialises. 
;on ignore la premiere valeur 
set on coapte une valeur en naoins 


;la valeur est dans BC 


sconpare DE et BC signes 
smaxiaum >= nombre 
snouveau maxiaum 

ssuite du travail 
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4240 
4244 
4247 
424n 


424E 
424F 


4252 
4255 
4258 
425B 
42% 
4261 
4263 
4266 
4269 
428C 


426F 
4272 
4274 
4277 
427 
427D 


4280 
4284 
4287 
4289 
428C 
428F 
4293 
4294 
4296 
4297 
429A 
4290 
429€ 


42Ai 
42A5 
42A8 
42AC 
42AF 
42B3 
42B4 
42B6 
42B7 
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ED5B5544 
CD8D45 
DA4E42 
ED435544 


3D 
C22B42 


211400 
2257844 
210700 
225B44 
245544 
CB7C 

C26F 42 
211400 
225944 
C3A142 


2A5544 
CB7C 

CA8042 
21C700 
225944 
C3A142 


EDSB5544 
CD4244 
3EB4 
CDB245 
2A5344 
ED5B5544 
B7 

ED52 

EB 
CDO744 
211400 
09 
225944 


EDSES544 
CD4244 
ED555544 
2A5B44 
ED4B5944 
B7 

ED42 

7D 
326144 


470 PAMAX: 
48 

490 

500 

910 ; 

520 SUITEÏ: 
530 

48 : 


LD 


DE, (MIN) 


CALL CPDEBC 


JP 
LD 


DEC 
JP 


C,SUITEL 
(MIN) ,BC 


A 
NZ ,LOOP1 


;compare DE et BC 
ssiniaue € nosbre 
ynouveau miniaum 


june valeur en moins 
ssuite de la boucle 


Rs") ;calcul des ŸG suivant les trois cas 


J60 ; 
570 
580 
998 
600 
610 
620 
650 
640 
658 
6tg 
678 ; 
688 CAS2: 
690 
700 
718 
720 
738 
748 ; 
750 CASS: 
768 
770 
788 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 ; 


LD 
LD 
LD 
LD 
LD 
BIT 
JP 
LD 
LD 
JP 


LD 
BIT 
JP 
LD 
LD 
JP 


() 


HL,20 
CYGMIN) ,HL 
HL, 199 
CYGAAX) ,HL 
HL, (MIN) 
7,H 

NZ,CAS2 
HL,20 
(YBZERO) ,HL 
CALCUL 


HL, (MAX) 
7,H 

1,CASS 
HL,199 
(YGZERO) ,HL 
CALCUL 


DE, (MIN) 


CALL VALABS 


LD 


A,188 


CALL MULTIP 


LD 
LD 
œR 
SBC 
EX 


HL, (MAX) 
DE, (MIN) 
A 

HL,DE 
DE,HL 


CALL DIV 


LD 
ADD 
LD 


HL,2 
HL,BC 
(YGZERO) ,H 


3MIN est-il positif ? 
snon: etudier max 
ÿMin est positif, 
>ygzero est en bas 
50k 


3MAX est-il negatif ? 
non: cas normal 

sMax est negatif, 
sygzero est en haut 
30k 


;valeur absolue de DE 


simini#188, resultat (TEMPO) 


3HL=(max-min) 
divise :@in:#188 par DE=(max-min) 


ajoute offset vertical 
fin du calcul de YGZero. 


890 ;calculs divers pour faciliter tracer rapide 


908 ; 

910 CALCUL: 
920 

939 

940 

950 

960 

970 

988 

990 


LD 


DE, (MIN) 


CALL VALABS 


LD 
LD 
LD 
œR 
SBC 


LD 
LD 


(MIN) ,DE 
HL, (YGMAX) 
BC, (YGZERO) 
A 

HL,BC 

AL 
(DPOS) ,A 


sremlace ain par sa valeur absolue 


spour )@: (ygmax-ygzero) 
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42BA 2A5944 1000 LD HL,(YGZERO) 

42BD ED4B5744 1910 LD BC, (YGMIN) 

42Ci B7 1928 ER A 

4202 ED42 1050 SBC HL,BC 

42C4 7D 1040 LD AL 

205 32624 1050 LD  (DNEG) ,A spour<@: (ygzero-ygmin) 
1868 ; 
1978 ;On attaque Le trace. D'abord initialisations 
1889 ; 

42C8 El 1090 LD Ai 

42CA 326344 1100 LD  (INK),A sencre de tracer de depart 

42CD 21320 1110 LD HL,50 

4200 226444 1120 LD (X),HL sabscisse de depart 

42D5 SEBI 1159 LD Ai 

4205 CD2CBC 1140 CALL INKCOD 

4208 113288 1150 LD DE,58 

42DB 245744 1169 LD HL,(YGMIN) 

42DE EDA4B5B44 1170 LD BC, (YGMAX) 

42E2 CD62BC 1198 CALL VERLIN ;axe vertical 

42E5 3EBI 1198 LD Ai 

42E7 CD2CBC 1200 CALL INKCOD 

42EA 11328 1218 LD DE,58 

A2ED Gi3FO1 1229 LD BC,519 

42FU 25944 1230 LD HL,(YGZERO) 

42F3 CDSFBC 1240 CALL HORLIN ;axe horizontal 

42F6 3ASD44 1259 LD A,(NBVAL) 

42F9 47 1260 D B,A scomteur du nombre de valeurs 
1278 ; 

42FA C5 1280 LOOPG: PUSH BC ;sauvegar de compteur valeurs 

42FB 2A5144 1290 LD HL,(TABLO) 

42FE SE 1300 LD E,(HL) 

42FF 23 1318 INC HL 

4580 5% 1320 LD D,(HL) DE contient la valeur 

4381 2 1338 INC HL 

4502 225144 1349 LD  (TABLO),HL aise à jour indice tableau 

4305 CB7A 1358 BIT 7,D pnegatif ? 

4507 C22745 1360 JP NZ,MOINS joui, trace en consequence 
1370 ; 
1380 ;trace pour un nonbre positif 
1390 ; 

AA JAGIA4 1400 LD A, (DPOS) ;ygmax-ygzer 0 

458) CDB245 1418 CALL MULTIP ; valeur *(ygmax-ygzer o) 

4510 ED5BS344 1420 LD DE, (MAX) 

4314 CDU744 1459 CALL DIV sdivision par ax 

4517 2A5944 1449 LD HL,(YGZERO) 

4314 09 145 ADD HL,BC 

451B 225D44 1460 LD  CYGHAUT) ,HL 

ASIE 2A5944 1478 LD HL,(YGZERO) 

4521 225F44 1480 LD  (YGBAS) ,HL 

4324 C54643 1490 JP SUIBOU ;suite de la boucle 
1598 ; 


1519 ;trace pour un nosbre negatif 
1520 ; 
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4327 
452A 
452D 
4530 
4334 
4537 
433 
453B 
4351 
4540 
LAC M 


4546 

349 
434C 
454F 
4350 
4552 
4353 
4554 
4355 
4558 
455B 
455 
455F 
4361 
4364 
4366 


4569 
456A 


456€ 


456D 
4378 
4571 


ASTS 
4376 
4577 
457A 
ASTD 
4580 
4384 
4587 
4588 
4389 
458A 
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CD4244 
346244 
CDB243 
ED5B5544 
CDO744 
2A5944 
B7 
ED42 
225F 44 
2A5944 
25D44 


CD6D43 
206444 
3A4F44 
4 
8600 
09 

23 

23 
26444 
346344 
3 
326344 
FEU4 
DA6943 
TU! 
326344 


Ci 
108€ 


C9 


3A4F44 
47 
EDSB6444 


CS 

D5 
3ABS44 
CD2CBC 
2A5F 44 
ED4B5D44 
CD62BC 
Di 

13 

Ci 
10E9 


1530 MOINS: CALL VALABS 


; (ygzera-ygmin) 
jivaleur: +(ygzero-ygnin) 


ÿrappel: ain=valeur absolue 


sdivision par imin: 


>Carry mis a zero 


spour mise à jour X 
;on ajoute largeur colonne 


set un petit espace 
spour changer de couleur 
;couleur=4 ? 

snon: pas de problene 


srevenir en couleur 1 


sfin du tracer 


snombre de ligne par colonne 


ÿabscisse de depart 


Sauvegarde compteur 
; Sauvegarde abscisse 


savancer vers la droite 


1540 LD A,(DNEG) 
1550 CALL MULTIP 
1560 LD DE,(MIN) 
1570 CALL DIV 

1580 LD HL,(YGZERO) 
1598 DR A 

1690 SBC HL,BC 

1610 LD  (YGBAS) ,HL 
1620 LD HL,(YGZERO) 
1630 LD  (YGHAUT) ,H 
1640 ; 

1659 ;avance dans la boucle 
1668 ; 

1670 SUIBQU: CALL TRACER 
1680 LD HL,(X) 
1698 LD A,(LARG) 
1700 LD C,A 

1718 LD B,8 

1720 ADD HL,BC 

1730 INC H 

174 INC H 

1759 LD (X),H 
1768 LD A, (INK) 
1770 INC A 

1789 LD (INK),A 
1790 CF 4 

1800 JP  C,æK 

1810 LD Ai 

1828 LD (CINK),A 
1830 ; 

1848 OK: POP BC 

1850 DJNZ LOCPG 

1868 ; 

1870 RET 

1880 ; 

180 3 routines -—--—------------ 
1908 ; 

1910 TRACER: LD À, (LARG) 
1920 LD BA 

1930 LD DE,(X) 
1940 ; 

1950 LOOPT: PUSH BC 

1968 PUSH DE 

1970 LD A,(CINK) 
1980 CALL INKCOD 
1990 LD HL,(YGBAS) 
2080 LD BC, (YGHAUT) 
2010 CALL VERLIN 
2020 POP DE 

2059 INC DE 

2840 POP BC 

2050 DJNZ LOOPT 


438C 


438) 
ASE 
438F 
4590 
4592 


4395 
4396 
398 


4598 
4590 
4590 
ASE 
45AU 


C9 


DS 
ES 


CB78 
CAAS4S 


E7 
CB7A 
CAAE4S 


62 

&E 

B7 
ED42 
CSAE4S 


43 77 


45h4 
456 


4549 
43AA 
43AB 
45AC 


43AE 
43AF 
45B0 
45B1 


43B2 
43Bb 
ASBA 
43BB 
43BD 
43ci 
4SCS 
4309 
4CC 
ASCF 


DZ 


CB7A 
C2AE4S 


7 
Pa 


B7 
ED42 


Ci 
Ei 
Di 
C9 


DD216644 
FD216944 
C5 

0608 
DD360000 
DDS60180 
DD560209 
FD7300 
FD7201 
FDS69280 


2068 RET 
2078 ; 
2080 ; Comparaison DE et EC 
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2098 ;retour : Carry=1 si DECBC, @ si DE>=BC 


2188 ;tous registres gardes. 


spour travailler tranquillement 
3BC positif ? 
joui traitement a part 


scarry=@ par defaut 
DE positif ? 
soui:donc DE>BC, carry=0 


stransfere DE dans HL 
carry à zero 
;soustraction-?carry où non 


scarry=i par defaut 
3DE negatif ? 
soui, donc DEKBC, carry=1 


;carr y=0 
3Carry si DE(BC 


248 ;Multiplication de DE par À dans buffer TEMPOI 


2118 ; 

2128 CPDEBC: PUSH DE 

2130 PUSH HL 

2140 PUSH EC 

2150 BIT 7,B 

2168 JP Z,BCPOS 
2170 ; 

2180 ;BC est negatif. et DE ? 
2198 ; 

2200 OR A 

2210 BIT 7,D 

2220 JP Z,SUITE2 
2238 ;deux noæbres negatifs 
2249 LD HD 

2250 LD LE 
2268 ŒR À 

2270 SBC HL,BC 
2280 JF SUITE? 
229 ; 

2308 ;BC est positif. Et DE ? 
2518 ; 

2328 BCPOS: SCF 

2339 BIT 7,D 

234 JP  NZ,SUITE2 
2558 ;deux noabres positifs 
2568 LD H,D 

2378 D LE 

2584 ŒR À 

2598 SBC HL,BC 
2400 ; 

2410 SUITE2: POP BC 

2420 POP H 

2439 POP DE 

2448 RET 

2458 ; 

2478 ; 

2480 MULTIP: LD JX,TEMPOI 
2490 LD  IY,TEMPO2 
2500 PUSH BC 

2518 LD B,8 

2520 LD (IX+0),8 
2530 LD (IX+1),8 
2540 LD (IX+2),0 
2550 LD (IY#)E 
2568 LD (IY+#1),D 
2570 LD (1Y+2),0 


;sauvegar de BC 
snoabre de bits dans À 


aise a zero du resultat 


sresultat interaediaire 
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43D3 CB2F 2580 SRA À sprenier decalage 
4305 D2F543 2590 POIDS: JP  NC,SUIV pas d'addition intermediaire 
438 F5 260 PUSH AF sauvegarde aultiplicateur 
4309 FD/E@ 2610 LD A,(IY#) saddition du resultat intermediaire 
435DC DD8600 2620 ADD A,(IX+#@) 
43DF DD7/4 2630 LD (IX+8),A 
ASE2 FD7E01 2640 LD A,(IY#1) 
43ES DD8EGL 2650 ADC A,(1X+1) 
ASE8 DD7/01 2668 LD (IX+1),A 
4SEB FD7E02 2670 LD A,(IY+2) 
ASEE DD8EQ2 2680 ADC A,(IX+2) 
4SF1 DD7/02 2698 LD (IX+2),A 
4SF4 Fi 2708 POP  AF srecupere aultiplicateur 
2710 ; 
ASFS FDCB@G26 2720 SUIV: SLA (IY+0) ;decalage resultat intern. 
43F9 FDCBQi16 2730 RL  (IY#1) 
4SFD FDCBO216 2740 RL (IY+2) 
4401 CB2F 2750 SRA A bit suivant À 
4403 18D0 2760 DJNZ POIDS shuit fois seulement 
405 Cl 2770 POP BC srecupere BC 
4406 C9 2780 RET 
2790 ; 
2808 ;division du buffer TEMPO1 par DE dans EC 
2810 ; 
4407 DD216644 2820 DIV: LD IX,TEMPOI 
440B 610000 2650 LD BC,® ;aise à zero resultat 
440E B7 2840 DR À snise a zero Carry 
2850 ; 
440F DD/E02 2869 LOOPS: LD A,(IX+2) spoids fort nombre 
4412 B7 2870 ER A ;zer0 ? 
4413 CA2F44 2880 JF  Z,SUBié joui, soustraction i6 bits normale 
2898 ;soustraction 24 bits 
4416 DD7E00 2900 LD A,(IX#) 
4419 93 2910 SUB € 
441A DD7/00 2920 LD (IX+8),A 
441D DD7EG1 2950 LD A,(IX+#1) 
4420 9A 2940 SBC A,D 
4421 DD7/01 29% LD (1X+1),A 
4424 DD7EG2 2960 LD A,(1X+2) 
4427 DEGO 2970 SBC A,@ 
4429 DD7/02 2980 LD (IX+2),A 
442C C33D44 299 JF  TESTCA stest sur le carry pour fin 
3000 ; 
442F DD/E0Q 3010 SUBib: LD A,(IX+@) 
4432 93 3020 SUB E 
4435 DD7/00 3450 LD (IX+@),A 
4436 DD7EG1 3840 LD A,(IX+1) 
4439 9A 3050 SBC A,D 
443A DD7701 5060 LD (IX+1),A 
3070 ; 
A43D D8 3080 TESTCA: RET C sfin du travail si Carry. 
4A4SE 0 3090 INC BC 3sinon une unite de plus 


443F C39F44 5100 JF  LODPS set continuer soustraction. 
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3110 ; 
3120 ;DE devient sa valeur absolue 
3139 ; 
4442 CB7A 3140 VALABS: BIT 7,D 3DE negatif ? 
4444 CB 3150 RET 7 ynon:pas de travail 
4445 F5 3168 PUSH AF sauvegarde À 
4446 JB 3178 LD AÆ 
4447 2F 3180 CFL 
4448 SF 3190 LD E,A 
4449 7A 3200 LD A,D 
444 2F 3218 CPL 
A44B 57 3220 LD D,A ;complement a un 
444C 15 3230 INC DE 
4440 Fi 32 POP AF 
AA4E C9 3259 RET 
3268 ; 
SLI zone des variables ----------—---- 
3280 ; 
444F 00 3290 LARG: DEFB @ ;largeur des colonnes 
4450 0 3300 NBVAL: DEFB @ snoabre de valeurs 
4451 0000 3310 TABLO: DEF @ adresse du tableau 


4453 6000 3328 MAX: DEFW @ 
4455 0000 3559 MIN:  DEFW@ 
4457 000a 3348 YGMIN: DEFN 8 
4459 000 3550 YGZERO: DEFW 0 
445B COGU 3360 YGMAX: DEFH 8 
445) 0000 3578 YGHAUT: DEFW @ 
445F 0000 3380 YGBAS: DEFW 8 


44bi 00 3590 DPOS:  DEFB G 

4462 9 3490 DNEG:  DEFE Q 

4465 00 3410 INK:  DEFBQ 

4464 0028 3420 x: DEFW 0 

4466 G00000 54350 TEMPOI: DEFB 0,0,0 sbuffer de calcul 3 octets 
4469 O0 3440 TEMFO2: DEFB 0,0,8 ;iden 


Pass 2 errors: 00 


L'exécution débute avec le bloc des lignes 150 à 210. Ces instructions 
sont chargées de récupérer les paramètres du CALL Basic, et de les placer 
dans les variables du programme. NBVAL est le nombre de valeurs à 
tracer, TABLO pointe sur la première de ces valeurs 16 bits, et LARG est la 
largeur de la colonne tracée, en nombre de points graphiques. Remarquez 
que NBVAL et LARG sont des valeurs 8 bits : seul leur poids faible est 
mémorisé. || est en effet inutile de mémoriser le poids fort. Il faudrait le 
faire s’il était possible de placer plus de 255 valeurs à l'écran ou de tracer 
des colonnes de plus de 255 points de large. En l'occurrence, cela est 
inimaginable, car l'écran fixé ne possède que 290 points de large, et deux 
points séparent chaque colonne. 
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Puis, le programme proprement dit commence. Un appel à l'adresse 
$4215 (ligne 230 du programme), en langage machine, exécute le tracé en 
prenant pour données les valeurs des variables vues ci-dessus. On peut 
donc parfaitement utiliser ce programme en langage machine. Il suffit de 
placer les données dans les trois variables TABLO, NBVAL et LARG, puis 
d'effectuer un CALL $4215. 


Avant toute chose, il faut vérifier que l'appelant a demandé le tracé d’un 
tableau à plusieurs valeurs. En effet, si NBVAL vaut 0 ou 1, le tracé est sans 
intérêt. Le RET C de la ligne 250 achève l'exécution si NBVAL<2. 


Ensuite a lieu la recherche des extrêmes. Ceux-ci sont stockés dans les 
variables MAX et MIN. On les initialise avec la première valeur du tableau, 
puis on boucle NBVAL-—1 fois à partir de la seconde valeur pour repérer les 
valeurs extrêmes. 


L'instruction CALL CPDEBC est très importante. Elle compare le contenu 
16 bits des registres DE et BC et positionne le flag Carry, en conséquence : 
Carry=1 si DE<BC, Carry=0 si DE>=BC. Ce serait facile à programmer s'il 
s'agissait de nombres de signe positif. En effet, dans ce cas, savoir si 
DE<BC revient à savoir si DE-BC<0. En soustrayant BC à DE, le Carry 
serait positionné comme voulu. 


Mais hélas, les valeurs à comparer sont considérées comme des 
nombres signés. Cela signifie que les valeurs $0000 à $7FFF sont positives, 
et $8000 à $FFFF négatives. Un problème risque de se poser dans le cas où 
les nombres sont de signe opposé : il faudra donc procéder autrement. 
Nous verrons la routine CPDEBC plus loin. 


Les extrêmes sont trouvés simplement en comparant chaque valeur à 
MIN et MAX. Si la valeur est inférieure à MIN (en tenant compte du signe, 
c'est-à-dire que —18 est inférieur à —3), elle remplace ce dernier. De même, 
si une Valeur est supérieure à MAX, elle le remplace. Et la boucle continue 
avec la valeur suivante, jusqu'à ce que toutes les valeurs aient été 
examinées. La fin de la boucle est en ligne 540. 


Ensuite, le programme assigne et calcule les valeurs de YGMIN, YGMAX 
et YGZERO. Il suit, pour ce faire, les calculs vus plus haut. Pour le calcul de 
YGZERO , il distingue les trois cas rencontrés lors de l'étude : 


— si MIN>0, YGZERO=199 ; 
— si MAX<O, YGZERO=20 ; 
— Sinon, YGZERO= (—MIN)/(MAX-—MIN)x180+YGMIN. 


Le sous-programme VALABS utilisé à ce sujet en ligne 760 a un rôle 
extrêmement important : il change DE en sa valeur absolue. Si DE est 
positif, rien n'est fait, sinon son signe est inversé par complémentation à 2 
sur 16 bits. Nous détaillerons le fonctionnement de VALABS plus loin. 


Une fois arrivés en ligne 910, nous devons initialiser quelques variables 
pour commencer le tracé. Il s'agit principalement d'optimiser un peu le 
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tracé des colonnes. MIN est remplacé par sa valeur absolue, afin d'éviter un 
appel de VALABS lors de chaque boucle. En effet, le programme n'a 
désormais plus besoin de MIN mais de sa valeur absolue. On calcule 
également d'avance YGMAX-—-YGZERO et YGZERO—-YGMIN. Leur utilisa- 
tion lors des tracés en sera simplifiée, une soustraction étant supprimée. 


En ligne 1090 débute le tracé. L'encre de tracé est mise à 1, et l’abscisse 
de départ est fixée à 50. Le tracé des axes (lignes 1130 à 1240) utilise les 
routines système HORLIN et VERLIN pour placer une ligne verticale de 
YGLIN à YGMAX à l'abscisse 50, et une ligne horizontale de 50 à 319 à 
l'ordonnée YGZERO. Une remarque est à formuler concernant ces routines 
HORLIN et VERLIN. Elles diffèrent de la routine DRAW par d'innombrables 
aspects. Non seulement leur utilisation demande un masque de couleur 
(d'où le CALL INKCOD des lignes 1140 et 1200), mais de plus, elles 
travaillent avec des coordonnées différentes de DRAW, PLOT ou MOVE. Au 
lieu d'utiliser les points logiques (640 X 400 quel que soit le mode), HORLIN 
et VERLIN n'acceptent que les points physiques. Les abscisses vont donc 
de 0 à 159 en mode 0, de 0 à 319 en mode 1 et de 0 à 639 en mode 2. Quant 
aux ordonnées, elles vont de O0 à 199. 


Cela complique la tâche si le programme doit travailler dans n'importe 
quel mode, mais en revanche le tracé des lignes par ces routines est 
beaucoup plus rapide qu'avec DRAW (en fait, DRAW les utilise pour tracer 
les petits segments constituant une droite). 


La boucle de tracé des valeurs commence à la ligne 1280. Comme nous 
l'avons remarqué lors de l'étude, il faut distinguer le cas des nombres 
négatifs et celui des nombres positifs. Le calcul de YG a lieu par les 
formules déterminées. Les variables YGBAS et YGHAUT contiennent les 
ordonnées extrêmes de la colonne graphique à tracer. Le tracé de cette 
dernière est effectué par le sous-programme TRACER. 


La fin de la boucle (lignes 1670 à 1850) avance l'abscisse de tracé, et 
modifie la couleur de tracé. 


L'ensemble du programme ne pose donc pas de problème particulier, il 
est juste une application directe des formules de calcul et de l'algorithme 
déterminés préalablement. Il en est tout autrement des diverses routines 
restantes. Chacune d'elles nécessite une étude approfondie. 


Les sous-programmes 


TRACER est la routine de tracé d'une colonne. Son fonctionnement est 
relativement limpide. Connaissant les données X, YHAUT et YBAS, elle 
trace la colonne correspondante, de largeur LARG. La seule difficulté est 
due au fonctionnement de la routine système VERLIN. En effet, celle-ci 
demande le masque du stylo de tracé, et non son numéro. Heureusement, 
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il existe une autre routine système qui peut se charger du calcul (CALL 
INKCOD). Il est également essentiel de sauver les registres utiles avant de 
tracer la colonne, car VERLIN les modifie tous. 


Nous arrivons maintenant à CPDEBC. Comme nous l'avons laissé 
entendre, la comparaison des registres DE et BC n'est pas simple, car il 
s'agit de nombres signés. La méthode classique est d'utiliser une soustrac- 
tion. DE-BC doit nous donner Carry positionné si DE est inférieur à BC. 
Mais dans ce cas, $4000—$F000 donnerait un Carry à 1. Pourtant, $4000 est 
positif et donc supérieur à $F000, qui lui est négatif. Il s’agit de nombres 
signés. Il faut donc traiter différemment les cas où DE et BC sont de signe 
contraire. Les deux cas où DE et BC sont de même signe peuvent se 
contenter de la soustraction simple. En effet, si ce sont deux nombres 
positifs, ils sont entre $0000 et $7FFF, et la soustraction donnera le Carry 
convenu. Si DE et BC sont négatifs également, car le nombre le plus grand 
de signe négatif est —1, représenté par $FFFF, et ce dernier est aussi le plus 
grand 16 bits. La soustraction convient également. 


Il reste les deux cas épineux où l'un des deux registres est positif et le 
second négatif. En réalité, ce n’est pas un problème car un nombre positif 
est toujours plus grand qu'un négatif. Le tout est de savoir si DE contient le 
nombre positif ou le négatif. Si DE est positif, alors c'est lui le plus grand 
des deux, et on met le Carry à zéro, sinon, on le met à un, car BC est le plus 
grand. 


Nous avons donc un algorithme applicable : 


— si BC est négatif et DE aussi, faire DE—BC ; 
— si BC est négatif et DE non, CARRY=0 ; 

— si BC est positif et DE aussi, faire DE—BC ; 
— si BC est positif et DE non, CARRY=1. 


Il est très facile en Z-80 de savoir si un nombre signé est négatif ou non. 
Le Z-80 possède une instruction BIT qui permet de savoir si un bit d'un 
registre quelconque est à 1 ou à 0. Or, le signe du nombre contenu dans DE 
est indiqué par le bit 7 du registre D : 1 pour un nombre négatif, 0 pour un 
positif. L'instruction “BIT 7,D" permet de savoir si DE est positif : si oui, le 
flag Z est mis à 1; un “JP NZ,add” sautera donc à l'adresse indiquée si DE 
est négatif. On retient l'effet de l'instruction BIT par deux moyens. La 
définition est la suivante : BIT place, dans le flag Z, l'inverse du bit testé. Si 
le bit était à 1, Z sera à 0. La deuxième façon de mémoriser cela est de 
penser “BIT teste si le bit est à 1”. Dans ce cas, “JP Z,add” est effectué si la 
réponse est oui. Par contre, “JP NZ,add” est effectué si c'est non. 


Il est important d'assimiler le fonctionnement de BIT. Cette instruction 
est extrêmement puissante, mais la moindre inattention peut générer une 
erreur de logique (inversion des branchements à la suite du test). 
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La routine CPDEBC travaille comme suit : 


BIT 7,B : on teste si BC est négatif ; 

JP Z,BCPOS : non, on va traiter ailleurs ce cas, sachant que 
BC est positif ; 

OR A : cette petite et anodine opération a pour simple 
but de positionner le Carry à 0; 

BIT 7,D : cette fois-ci, on teste si DE est aussi négatif ; 

JP Z,FIN : non: donc le Carry reste à zéro, DE>BC. C'est 
fini; 

soustrac. : puisque DE et VC sont positifs, on les soustrait 
simplement pour avoir directement le Carry; 

BCPOS:SCF : cette instruction a l'effet inverse de OR A: elle 
met Carry à 1; 

BIT 7,D : DE est-il lui aussi positif ? 

JP NZ,FIN : non: donc DE<BC, donc Carry reste à 1. C'est 
fini ; 

soustrac. : DE et BC sont tous les deux positifs, on les 
soustrait ; 

FIN: : fin de routine. 


Tout cela est bien entendu plus compliqué qu'une simple soustraction. 
Mais en dehors des particularités de certaines instructions (BIT, OR A, SCF), 
il n'y a aucune obscurité dans son déroulement. 


Nous devons aussi penser à la multiplication. Nous avons vu plus haut 
que la routine définie pour le tracé de cercles ne convenait pas. Il y a en 
effet un grand risque de tomber sur un Overflow. Il faut ici multiplier un 
nombre 16 bits par un 8 bits. 


Le mécanisme de la multiplication peut en revanche être récupéré. Nous 
multiplions toujours par A qui possède huit bits. Mais le travail sur DE est 
différent. En effet, alors que précédemment, seuls les 8 bits de droite de DE 
intervenaient, ici les 16 bits peuvent être significatifs. Un simple décalage à 
gauche nous ferait donc perdre une information, et le résultat intermédiaire 
serait faux. L'’addition finale également, bien sûr. 


Pour ne pas perdre les 8 bits du registre D lors des huit décalages 
successifs. || faut utiliser un pseudo-registre 24 bits. Le Z-80 ne possède pas 
de tel registre, il faut le simuler. Pour cela, nous allons utiliser IY, Celui-ci va 
pointer sur une zone de 3 octets qui sera le fameux pseudo-registre. Notre 
choix se justifie par une remarque faite au chapitre 2. IY est un registre de 
pseudo-index : il permet d'assimiler n'importe quelle case mémoire au 
registre À. Cela signifie qu'on peut effectuer sur une case mémoire pointée 
par lY (ou IX) n'importe quelle opération, notamment rotation ou décalage. 


En ce qui concerne le résultat final, il faut noter que son format est lui 
aussi susceptible de grimper jusqu'à 24 bits. || faudra donc également le 
placer dans un pseudo-registre qui sera pointé par IX. 
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Si l’on excepte l'utilisation du registre À pour les additions de résultats 
intermédiaires, la multiplication est alors strictement identique à notre 
précédente routine. Le décalage du résultat intermédiaire est, entre autres, 
un bon exemple. Voici les deux séquences : 


Multiplication 16 Bits Multiplication 24 Bits 
SLA E SLA (IY+0) 
RL D RL  (IY+1) 
RL  (IY+2) 


Il nous reste à réaliser la division. Pas question ici de décalage. Il s’agit de 
soustractions successives. Mais le problème du format du résultat se pose 
encore : alors que nous divisons un nombre de 24 bits, le diviseur est de 
type 16 bits. 


La solution a été effleurée plus haut : il faut procéder en deux étapes. La 
première partie de la division va exécuter une soustraction 24 bits (le 
troisième octet du diviseur étant assimilé à un zéro). Dès que cela sera 
possible, la soustraction se fera ensuite sur 16 bits. Le Carry est en effet 
correctement positionné par la soustraction 16 bits. 


Le début de la division est donc le suivant : 


— si le dividende est 16 bits (troisième octet=0), on soustrait directement le 
diviseur. On recommence jusqu’à ce que le Carry soit positionné, après 
avoir ajouté 1 au résultat. Cela intervient en effet lorsque la dernière 
soustraction a donné un résultat négatif (dividende inférieur au diviseur) ; 


— si par contre le dividende est 24 bits, on soustrait le diviseur au dividende 
octet par octet, et éventuellement la retenue au troisième de ces octets. 
Cela est effectué par la séquence suivante : 


LD A(IX+0) : premier octet du dividende ; 

SUB E : soustraction simple du premier octet du diviseur. 
Cela positionne le Carry en cas de retenue ; 

LD (IX+0),A : mise à jour du premier octet du dividende. 

LD A,(IX+1) : deuxième octet. 


SBC A,D : soustraction du deuxième octet diviseur et de la 
retenue. 

LD (IX+1),A 

LD A,(IX+2) : dernier octet dividende. 

SBC A,0 : soustraction de la retenue uniquement. 

LD (IX+2),A 


Remarque : le résultat est remis à jour après le test de fin, et non avant. 
En effet, on ne détecte la fin du travail que lorsque la soustraction produit 
un nombre négatif. Cette dernière opération est donc en trop, il ne faut pas 
la comptabiliser. Pour cette raison, on sort de la routine de division. Sinon, 
on ajoute un au résultat et on recommence. 
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Enfin, la dernière routine est celle qui transforme un nombre négatif en 
sa valeur absolue. Pour cela, il ne suffit pas d'inverser le bit de signe. Il 
s'agit du format “nombre signé”. On obtient le nombre de signe opposé de 
la façon suivante : 


— inverser les 16 bits du nombre, y compris celui de signe ; 
— ajouter 1. 


Remarquez qu'on obtient par cette opération (qui porte le joli nom de 
complémentation à deux) l'opposé d’un nombre, même si celui-ci est 
positif. —12 deviendra 12, mais 365 deviendra —-365 {voir annexe 7). 


Notre routine calcule la valeur absolue. Il ne faut donc pas procéder à la 
complémentation si le nombre est déjà positif: nous obtiendrions un 
résultat négatif ! 


Pour complémenter à deux le registre DE, il nous faut l'instruction CPL. 
Cette dernière inverse les bits du registre A. La complémentation passe 
donc par la séquence suivante : 


LD AE : premier octet de DE 

CPL : inversion de tous les bits 

LD E,A : et remise à jour de E 

LD A,D : même travail sur le second octet de DE 

CPL : inversion des huit bits 

LD D,A : DE est maintenant inversé 

INC DE : et on ajoute 1 pour avoir le complément à deux! 
Conclusion 


Le programme 3.5 en langage Basic correspond à nos travaux. 


LA “HR REED EEE EEE 

28 ‘++* Programme 5.5 +* 

SA IEEE EEE DE DEEE EEE ZE 

48 

50 ‘Trace d'histogrammes en langage machine 

68 

78 MEMORY &SFFF 

86 DEFINT a-z 

98 ad=2%4208:lign-=208@ 

188 ctri=9:READ cH:1F c#="fin" THEN 535 

11Q FOR i=i TO LEN(c#) STEP 2 

128 c=VAL("LM+MIDHE(CE,1,2)) 

150 PFOKE ad,c:ad=adti:ctiri=ctri+c 

148 NEXT:READ teste:!iF teste<èctirl THEN PFRINT'"'Er 
reur DATA ligne"lign:END 

158 lign=lign+1i2:GO0OT0 198 

188 ‘ 
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170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 


30 
348 
350 
360 
370 
380 
390 
408 
410 
420 
435 
440 
450 
460 
470 
480 
490 
500 
910 
329 
350 
9340 
9930 
569 
57/0 
599 
9390 
680 
610 
&20 

30 
&468 
6508 
6608 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DD7E@0324F44DD7E02325@44DD6E0ADD, 
660522514435044FE02D82A51444E23, 
46ED435344ED435544233D4E234623ED, 
SB5344CD8D43D24042ED435344C34E42, 
EDSB5544CD8D43DA4E42ED4355443DC2, 
2B4221140022574421C700225B442A55, 
44CB7CC26F42211400225944C3A14228, 
5344CB7CCA804221C700225944C3A142?, 
EDSB5544CD42443EB4CDB2432A5344ED, 
5BSS544B7ED52EBCD0744211400092?59, 
44ED5B5544CD4244ED5355442A5B44ED, 
4B5944B7ED427D3261442A5944ED4B57, 
44B7ED427D3262443E013263442153200, 
2264443E01CD2CBC113200745744ED4B, 
SB44CD62BC3E01CD2CBC113200013F01, 
2A5944CD5FBC3A5G4447C52A51445E23, 
5623225144CB7AC22743306144CDB243, 
EDSB5344CD07442A594409225D442A59, 
44225F44C34643CD42443A6244CDE243, 
EDSB5544CD07442A5944B7ED42225F44, 
245944225D44CD6D432064443A4F444F, 
06000723232264443h63445C326344FE, 
@4DA69433E01326344C1108EC73A4F44, 
47EDSB6444C5D5346344CD2CBC2A5F44, 
ED4B5D44CD62BCD113C11@E7C7D5ESCS, 
CB7S8CAA343B7CBR7ACAAE4:676BB7ED42, 
C3AE4337CB7AC2AE43626EB7ED42C1E1, 
D1C9DD216644FD216944C50608DD3600, 
OGDD360100DD360200FD7320FD72@1FD, 
Z60202CB?FD2F543FS5FD7E00DDE8600DD, 
77@@FD7E@1DD8E@1DD77@1FD7E@ZDD8E, 
@2DD770?F 1FDCB2026FDCBG116FDCBU?, 
16CB2F1@D@CiC9DD21664401202087DD, 
7E@2B7CA2F44DD7E8093DD77@@DD7E0 1, 
9ADD77@1DD7EWZDE@@DD77@2C33D44DD, 
7E0093DD77@@DD728197ADD77G1D803C3, 
GF44CB7AC8FS57B2FSF7A2F5713F1C900, 
“fin",0 


1647 
1272 
1533 
1789 
1968 
9785 

1474 
1719 
1942 
1446 
1799 
1656 
1258 
1278 
1282 
1481 
1682 
1293 
1610 
1643 
1269 
1843 
1431 
1844 
2474 
2397 
2360 
1779 
1542 
2028 
1948 
2816 
1719 
1818 
1953 
1870 
1835 


CLEAR:DEFINT a3-z: MODE 1:WINDOW #0,1i,15,1,2 
INF O,0:INK 1,15:INK 2,Z8:INE 3,26 
DIM tablo(40@) 
PRINT "SAISIE" 
i=i:tablo(@)=i 
WHILE tablo(i-1)<1:9 AND i<40 

PRINT "Valeur";i; 

INPUT tablo(i):i=i+i 


WEND: 


MODE 1 


larg=(328-53)/ (1-2) -2 


CALL 
GOTO 


%4200,6tablo(i),i-Z,larg 
580 
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Notre programme de tracés d’histogrammes est sensiblement plus 
rapide que son équivalent Basic, et il est surtout beaucoup plus maniable. 
En effet, il peut travailler sur n'importe quel ensemble de valeurs. Sa plus 
grande particularité est son déroulement simple : quelques calculs prélimi- 
naires et une boucle unique pour tracer les valeurs. La difficulté ne réside 
que dans les routines de calcul. La moralité de l'histoire doit paraître 
évidente. En effet, bien que le programme ait un but uniquement graphi- 
que, les problèmes liés au graphisme sont passés quasiment inaperçus. 
Cet aspect paradoxal doit mettre en évidence l'avantage des routines 
système de l'Amstrad. En effet, le système de coordonnées retenu pour les 
routines VERLIN et HORLIN nous a facilité la tâche à un point tel que le 
tracé des colonnes proprement dit est devenu un jeu d'enfant. S'il avait 
fallu adresser directement chaque case mémoire de l'écran pour tracer les 
colonnes, le programme aurait incontestablement été plus compliqué. 


REMPLISSAGE DE ZONES 


Introduction 


Puisque vous avez constaté la facilité de programmation apportée par les 
nombreuses routines graphiques de l’Amstrad, vous êtes prêt pour une 
dernière mise en œuvre de celles-ci. 


Jusqu'à présent, les programmes réalisés ne mettaient en œuvre que 
peu d'appels de routines système. Ceux-ci étaient le plus souvent restreints 
à un usage bien précis, et généralement unique, au niveau du travail 
effectué. Dans le tracé de cercles, les routines PLOT et DRAW traçaient 
uniquement, le contour du cercle, les calculs ne les utilisant pas. Il en allait 
de même pour le tracé d'histogrammes. 


La routine de remplissage de contours que nous allons réaliser sera 
extrêmement différente. En effet, les routines graphiques vont ÿ jouer un 
rôle essentiel, tandis que la partie calcul sera d'une grande simplicité. Nous 
nous proposons de réaliser une routine remplissant avec une certaine 
couleur n'importe quelle figure fermée placée sur l'écran, connaissant un 
point situé en son enceinte. 


Les possesseurs des modèles 664 et 6128 savent sans doute qu'une 
instruction de ce type est intégrée à leur interpréteur Basic. Mais cette 
instruction remplit les figures dont le contour est d'une couleur uniforme. 
La routine que nous allons réaliser, au contraire, acceptera comme bordure 
de figure n'importe quelle couleur. Le fonctionnement des deux routines 
est en fait identique, seuls changent les tests déterminant si un point 
appartient au bord de la figure ou non. Mais aucun Amstrad ne fournit, à ce 
jour, d'instruction remplissant une figure de contour multicolore. Nous 
allons pallier ce manque. 
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Méthodes de remplissage 


Il existe deux façons de traiter le problème. La première conduit à une 
routine extrêmement simple. || faut toutefois fixer une contrainte : les 
figures devront être également simples, concaves (bien que le terme ne 
soit pas tout à fait exact d’un point de vue mathématique). Un cercle est par 
exemple une figure convenant à ce point de vue. L'algorithme de 
remplissage à partir d'un point situé à l'intérieur est alors le suivant : 


se déplacer sur le premier point du bord gauche, sur la ligne actuelle ; 
tracer jusqu'au premier point de la bordure de droite en remplissant les 
points du fond rencontrés ; 

grimper d'une ligne ; 

recommencer jusqu'à ce qu'aucun espace ne se trouve entre le point de 
gauche et celui de droite. 


Et on recommence la même démarche vers le bas lorsque la partie 
supérieure de la figure est ainsi remplie (c'est-à-dire celle située au-dessus 
du point de départ). 


Malheureusement, si cette procédure procure le double avantage de la 
simplicité et la rapidité, elle donne un remplissage tout à fait incorrect si la 
figure est plus complexe. Le schéma 3.13 représente une figure quelcon- 
que (à laquelle nous ferons référence dans la suite de notre étude) et son 
remplissage par notre méthode simplifiée, à partir du point marqué d'une 
croix. 


Point de départ 


Schéma 3.13 Figure complexe exemple mal remplie. 
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Vous constatez qu'une grande partie de la figure est restée inexplorée. 
Vous trouverez pourquoi en suivant la logique du raisonnement à partir de 
ce point de départ. Lorsque le programme part du point gauche et remplit 
la figure jusqu'au premier point de bordure rencontré, il ignore si ce point 
de droite est réellement la bordure de la figure. D'où l'absence de 
remplissage de la zone qui se trouve éventuellement derrière. 


La figure 3.14 représente le même processus appliqué à la même figure, 
mais à partir d'un point de départ différent. 





Schéma 3.14 Autre remplissage incorrect. 


Le problème n'est pas moindre, bien au contraire. Toutefois, si la figure 
est connue du programme, il est bien entendu possible d'appeler plusieurs 
fois la routine en stipulant les différents points d'origine permettant un 
remplissage complet. Ce sera le cas sur le schéma 3.14 si l'on remplit 
ensuite à partir des points 1,2 et 3. 


En remarquant cela, nous venons de trouver le principe du remplissage 
véritable : puisque l'algorithme de base ne peut pas s'occuper des zones 
invisibles, il suffit de le modifier afin qu'il repère les points de départ 
supplémentaires. De cette façon, nous pourrons repartir automatiquement 
de ces points pour continuer le remplissage des zones laissées de côté. 


Le repérage des points de départ supplémentaires est un problème 
intéressant. Pour le résoudre, il faut en effet examiner tous les cas de figure 
possibles. L'algorithme de base, nous l'avons vu, procède de la même 
façon pour le remplissage vers le haut de la figure et vers le bas de celle-ci. 


108 ! GRAPHISMES EN ASSEMBLEUR SUR AMSTRAD 


En ce qui concerne le sens vertical de déplacement, les tests de recherche 
des points à problème seront exactement les mêmes quel que soit ce sens. 


Il nous suffira simplement d'inverser la progression de la routine sur l'axe 
des ordonnées. 


En revanche, nous avons un algorithme qui part toujours du point de 
gauche pour aller vers la droite. Il faut donc repérer les problèmes entre ces 
deux points extrêmes. 


Supposons que nous progressons vers le haut sur le schéma 3.15 : les 
deux points extrêmes trouvés provoqueront un remplissage incorrect, la 
zone problématique se situant au-delà. 


Point à mémoriser 


/ 
{ Sens de travail 
e | | 
3 “A x 
L | 


Point de gauche Point de droite 











Schéma 3.15 Comment repérer un point spécial. 


Par contre, nous pouvons repérer le problème lors du remplissage de la 
ligne précédente. En effet, si, parallèlement à celui-ci, nous surveillons la 
ligne du dessus, on va voir défiler dans l’ordre trois points couleur de fond, 
un point de bordure, et quatre points de fond. Or, nous savons alors 
pertinemment que le point de bordure situé dans cette liste va poser un 
problème, puisque les points suivants ne seront pas examinés. Il nous 
suffit donc de mémoriser, pour traitement ultérieur, le premier point de 
fond suivant ce point de bordure. Il sera le point de départ pour un nouvel 
appel de la routine. Ce point est marqué d'un triangle sur le schéma. 


Ce que nous venons de remarquer pour un déplacement vers la droite 
est également valable lorsque nous recherchons le point le plus à gauche. 
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A propos des extrêmes, un autre problème peut se poser, illustré par la 
figure 3.16. 


Schéma 3.16 Un autre type de point spécial. 


Comment trouver le point gauche extrême (et le droit) lorsque l'on 
grimpe d'une ligne ? La solution est de partir du point précédent. On 
grimpe exactement à la verticale. Si le point rencontré est de la couleur du 
fond, alors cela signifie que la bordure s'est décalée à gauche, et dans ce 
cas nous poussons notre point dans ce sens jusqu'à toucher la bordure. Il 
faut bien sûr procéder identiquement pour le point de droite. 


Mais la figure met en évidence le problème : le point D, nouvel extrême 
de droite, nous cache une zone non explorée. Il nous faut donc, lorsque 
nous déplaçons les points extrêmes avant de remplir la ligne, repérer 
comme précédemment les points de départ supplémentaires (le point 0 sur 
la figure). Il y a donc trois possibilités de découvrir des points à problème : 
ou bien à gauche et à droite sur la ligne précédente, ou bien à droite sur la 
ligne actuelle. 


Cela dit, nous avons vu que la routine travaillait identiquement quel que 
soit le sens d'exploration vertical. Or, pour les points à problème, nous 
connaissons le sens qu'il faudra utiliser pour remplir la zone ignorée. Par 
exemple, dans notre dernière figure (3.16), il faut prendre le sens inverse 
(vers le bas). Le remplissage vers le haut sera inutile puisque déjà effectué. 
Il ne faudra donc pas uniquement mémoriser le point de départ, mais aussi 
le sens de travail pour la routine lorsqu'elle démarrera le processus à partir 
de celui-ci. 
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Algorithme de remplissage 


Notre algorithme va se décomposer en plusieurs appels successifs d’une 
même routine. Celle-ci se chargera du remplissage simple d'une zone, à 
partir d'un point donné, et dans un seul sens vertical de progression. 
S'agissant du remplissage simple de notre figure de départ, il faudra donc 
appeler la routine une fois pour le haut de la figure, et une autre pour le 
bas. Ensuite, le cas échéant, nous recommencerons avec les éventuels 
points spéciaux repérés, dans le sens qui sera alors précisé. 


La consistance de la routine de remplissage unidirectionnelle est 
conforme à l'étude précédente : 


— à partir du précédent point de gauche (ligne en dessous) trouver le point 
situé le plus à gauche, cela en contrôlant que la ligne du dessous est 
conforme, et ne comporte pas de point spécial. Si un tel point est repéré, le 
mémoriser avec un sens de recherche inverse à celui actuellement utilisé 
(vers le bas si l’on progresse vers le haut) ; 


— procéder à la même opération vers la droite, toujours en repérant un 
éventuel point particulier, mémorisation identique des points spéciaux 
(sens inverse de recherche) ; 


— remplir la ligne entre ces deux points extrêmes, tout en scrutant la ligne 
située au-dessus pour repérer les autres points spéciaux. Si un tel point est 
trouvé, le mémoriser avec un sens de recherche identique ; 


— passer à la ligne au-dessus ; 
— recommencer tant que le point de gauche est différent de celui de droite. 


Le programme 3.6 en Basic est une mise en œuvre de ce procédé. 


1Q “HEIN DEEE 

20 ‘+* programme 3.6 ** 

SO HEIN DE DEEE 

48 ‘ 

50 ‘Frogramme de remplissage de zones en Basic 

6@ ‘Frogrammation volontairement proche du LM 

7@ ‘ pour transposition facile. 

80 

9QG RANDOMIZE TIME/3Q@: '‘initialise generateur ale 
atoire 

10@ DEFINT a-z: ‘toutes variables de type entier 

16 bits 

118 DIM xd(320),xg(320),y(520),d(326):° pile sim 
ulee 

12@ MODE 1 

13Q WINDOW #6,1,18,1,25 
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148 FOR i=1i TO 20: ‘on trace 20 lignes 

15 MOVE 64G#RND, 48B8*RND: ‘au hasard 

160 DRAW 64GUxRND , 4800*xRND , 1+1INT (RND#23) : ‘couleur 
au hasard 

178 NEXT 

18@ FLOT 0,0: 'on trace un cadre 

19Q DRAW 8239,0: ‘pour eviter tests 

208 DRAW 639,399 

218 DRAW 0,399 

2286 DRAW 6,0 

250 FLOT 800,800, 1: ‘positionne le stylo graphiqu 
e 

Z48 MOVE 320,200: ‘point de depart 

259 c=i: "stylo de remplissage 

260 GOSUB 360: ‘remplissage 


270 END 

P?OÛ ‘======rsss=sS2SSSSSS=ESSSSSSESSESS === 
290 

3880 ‘sous-programme de remplissage 

310 ” 


EE 


Lo) 
LA SSSESSSSSESSS=SE= === = —— 


348 ‘Initialisation de la fausse pile 

350 ‘ 

36@ x=XP0S: ‘recupere X-depart 

378 y=YP0S: ‘recupere Y-depart 

380 WHILE TESTR(-2,0)=0: ‘on se deplace a gauche 
jusq'au bord 

398 WEND 

4808 xg=XF05S+2: ‘xg=point de gauche=bordure+i 

410 MOVE x,y: ‘replace au milieu figure 

426 WHILE TESTR(2,0)-0: ‘on se deplace à droite J 
usqu'au hord 

43@ WEND 

440 «“xd=XPFO0OS-2: ‘xd=point de droite=bordure-i 

450 sp=2: "faut pointeur pile: deux points a etud 
ier 

488 xg(1)=x«xg: ‘premier point pour demi-figure du 
haut 

478 xd(1)=xd:'xg et xd=ceux trouves ci-dessus 

489 y{i)=y+2: "Y=ligne au dessus 

490 d(i)=2: 'direction=vers le haut 

508 xg(2)=-xg: second point pour demi-figure du 5 
as 

510 xd(2)=;: di ‘xg et xd=-ceux trouves ci-dessus 

928 y(2)=y:"Y=ligne de depart 

9530 d(2)=-2: ‘direction=vers le bas 

5468 
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350 ‘on vide la fausse pile point par point 
568 
97/0 WHILE sp<;@: ‘tant qu'il y a des points a vai 


- 
580 x*g=xg{(sp): "recuperer xg de depart 

970 “d=xd(sp)}: "recuperer xd de depart 

600 ÿY=y (sp): recuperer y de depart 

619 s=d(sp): "recuperer direction de recherche 
620 sp=sp-i: ‘diminuer la pile de ce point 

650 


648 ‘ travail sur un point donne XG,XD,Y,S 

6508 

668 MOVE *xg,y:'se placer a gauche 

678 IF TESTR(G,0)=-@ THEN 790: le point est dans 

la figure:deplacer 

680 ” 

698 ‘le point xg n'est pas sur la bordure: on le 

pousse a gauche 

7008 

718 WHILE TESTR(2,@)<:0: "le point est sur bord: 
deplacer a droite 

728 WEND 

30 xg=XPOS: ‘c'est le nouveau XG de cette ligne 

748 GOTO 980: 'suite du traitement 

7350 ‘ 

789 ‘le point xg est sur la bordure :0n le pouss 
e a droite 

77Q ‘en verifiant qu'il n'y a pas de point speci 
al en dessous 

78@ 

798 f=0: ‘pas de point speciai repere 

998 WHILE TESTR(-2,0)=-8: ‘on va vers la gauche 

910 IF TESTR(G,-s)<:0 THEN 850:'1e point en dess 
ous est de la bordure, ok. 

Z2@ f=i: c'est un point special,il n'est pas sur 
bordure 

950 x2=XF0S: ‘retenir cette position d'absciscse 

S49 y2=YF0S: 'et l''ordonnee 

858 MOVER 0,5: ‘remonter a ia ligne actuelle 

86& WEND 

87@ ‘ 

880 xg=XPO0S+2: ‘c'est le nouvel x:g, a droite de 1 
a bordure 

990 IF f-Q THEN 96G:'1i1l n'y avait pas de point s 
peciai, ok. 

902 sp=sp+i: ‘retenir le point detecte 

719 xg{sp)=x?2-2: ‘xXG de depart 

928 xd(sp)=K«2: "xd de depart 

9:20 ÿ;{sp)=yz: "Y de depart 

940 d(sp)=-s: "direction de recherche=inverse 
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950 ‘ 

988 ‘on a fini avec xg, meme travail maintenant 
pour xd mais inverse. 

970 ‘ 

980 MOVE xd,y:'se placer a droite sur la ligne 

990 IF TESTR(G,@)=-@ THEN 1119: ‘point dans le vid 

e, pousser a droite 

1000 

101@ ‘le point xd est sur la bordure, on le pous 
se a gauche 

1020 ‘ 

1830 WHILE TESTR(-2,0)<>0@: ‘on pousse le point a 
gauche de la bordure 

1@4Q@ WEND 

1058 xd=XP0S: ‘nouvel xd=a gauche de bordure droi 
te 

1860 GOTO 1310: ‘suite du traitement normale 

1870 

1880 ‘le point xd n'est pas sur la bordure, on 1 
e pousse a droite 

1498 ‘en verifiant la presence de points speciau 
x en dessous 

1160 ” 

1118 f=0: ‘pas de point special repere 

1120 WHILE TESTR(2,@)=0: "on va vers la droite 

11350 IF TESTR(G,-s5)<>0 THEN 1170: '1le point en de 
ssous est normal 

1140 f=1i: ‘ce point est special, le memoriser 

1150 x2=XP0S: ‘xg de depart 

11680 y2=YPOS: °Y de depart 

117Q MOVER 6,5: ‘remonter a la ligne actuelle 

118Q WEND: ‘continuer de pousser a droite 

1190 ‘ 

1208 xd=XPOS-2: ‘nouvel xd=a gauche de bordure dr 
oite 

121@ IF f=@ THEN 1310: ‘pas de point special vu, 
ok. 

1220 sp=sp+i: ‘retenir ce point 

125306 xg(sp)=x2: ‘xg de depart 

1240 xd(sp)=x2+2: "xd de depart 

1250 y(sp)=y2: "Y de depart 

1280 dsp)=-s: "direction de recherche=inverse 

1270 ‘ 

1280 ‘fin du travail sur xg et xd, maintenant co 
mmence le remplissage 

1290 ‘elementaire de la ligne. 

1300 

1310 IF xg>xd THEN 1700: ‘c'est la fin du travail 

1320 ‘ 
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1330 MOVE xg,y:'se placer a gauche au bord 

1348 WHILE TESTR(2,0)=0: ‘examiner vers la droite 

1350 WEND 

1360 

1370 ‘on est alle jusqu'a la bordure visible. Il 

faut verifier qu'elle 

1380 ‘correspond a celle trouvee a partir de la 
ligne precedente 

1390 ‘ 

1400 IF XPOS<xd THEN 1480: ‘le bord trouve n'est 
pas le vrai :point special 

141@ MOVER -2,0 

14208 DRAW x*xg9,y: ‘remplissage sans probleme 

1439 GOTO 1680: ‘et suite de la progression 

1440 

1450 ‘on a trouve un espace entre les deux xd su 
pposes. Mais peut-etre est-il 

1468 ‘du a un bout de bordure horizontal 7? 

1470 

148Q0 xs=XPOS: ‘sauvegarde du XD trouve 

1490 MOVER —-2,0 

1508 DRAU xg,y: "remplissage 

1518 MOVE xs,y: "revenir a droite au bord trouve 

1520 WHILE TESTR(2,0)<>0: "sauter la bordure 

1528 WEND 

154Q@ IF XPOS>=xd THEN 1680: ‘c'est bon, la bordur 
e etait horizontale 

1550 ‘ 

1568 ‘il y a un espace entre la fin de la bordur 
e horizontale et la vraie 

157Q@ ‘bordure, donc c'est une zone a traiter plu 
Ss tard. 

1580 ‘ 

1590 sp=sp+i:'il y a une zone a memoriser 

1600 xg{sp)=XP0OS: ’xg de depart=a droite bordure 
horizontale 

1618 xd(sp)=xd: "xd de depart=celui calcule d'apr 
es ligne prec. 

1620 y(sp)=y: "y de depart=actuel 

1858 d(sp)=s: "direction de recherche=la meme 

1640 xd=xs-2: ‘recadrer xd pour suite du travail 

1850 ‘ 

1668 ‘fin du travail sur la ligne actuelle 

1678 

1880 y=y+s: "progression verticale de recherche 

1690 GOTO 660: ‘et suite du travail sur nouvelle 
ligne 

17@@ WEND: ‘finir de vider la pile 

1710 RETURN: ‘fin du remplissage 
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il faut noter la partie initialisation de la routine. Elle récupère le point de 
départ, détermine les points gauche et droit de la ligne de départ, et place 
les points de départ des deux demi-zones initiales. On utilise à cet effet une 
fausse pile et un faux pointeur de pile SP. La pile est simulée par quatre 
tableaux XG,XD, Y et S. S est la direction de recherche : elle est —-2 pour 
aller vers le haut et +2 vers le bas. Remarquez également les procédures de 
recherche des points extrêmes. Elles sont associées à la recherche des 
points spéciaux. 


Le programme 3.6 est en Basic simplifié. Les instructions ont été 
rapprochées le plus possible du langage machine afin de simplifier la 
transposition. Le programme 3.7 qui suit est donc une simple traduction de 
ce programme. 


18 ; 
20 ;Programne de remplissage de zone 
39 sprogramae 3.7, transposition LM du prog 5.6 


48 ; 
BEC& où GPOS: EQU #BBCÉ 
BECB &@ MOVE: EQU #EBCO 
BEF 70 DRAW:  EOU #BBF6 
BEFS 88 TESTR: EQU #BEF3 
BBC3 96 MOVER: EQU #HBBC3 
109 ; 
5008 118 DRG #5000 
120 ; 
138 sinitialisations diverses 
140 ; 


5008 FD210853 158 LD IY,STACK 
5004 FDS6002 160 LD (1Y),2 
5008 21FF3F 178 ED HL,#3FFF 
o00B 222253 188 LD (PILE), ,HL 

LD 

LD 

LD 


JOUE DD210A55 198 IX,COUL pointe sur couleur 


5012 2ABC55 208 HL, (MODE) deplacement x mode 

9015 7D 218 AL 

S016 2F 220 CPL 

9017 6F 250 LD L,A 

5018 7C 240 LD AH 

5919 2F 250 CPL 

JOIA 67 268 LD H,A 

Jg1B 23 270 INC HL 

gûic 22055 289 LD  (NMODE) ,HL ;fin calcul -aode 
298 ; 

J01F CDC6BB 390 CALL GPOS recupere xpos et ypos 

5022 ED531955 310 LD (X),DE 

o026 221253 320 LD (Y),HL sstockage pour travaux 
339 ; 


0029 EDSBGESS 349 Li92@: LD  DE,(NMODE) sdeplacement vers gauche 
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592) 
5050 
035 
5054 


5057 
SUSA 
S05D 
SOSE 


9041 
5045 
5049 


504B 
J04F 
9052 
5095 
3056 


5059 
S09C 
J0SF 
5000 
J0bi 


3065 
5068 
596€ 
906D 
JO6E 
5071 
5074 
5079 
507B 
S07F 
5080 
95881 
5984 
5087 


JU8A 


3091 
9095 


210000 
CDF3BB 
B7 

CA2950 


CDC6BB 
2AGCSS 
19 

2145 


ED5B1055 
2A1255 
CDCGBB 


EDSBQC5S 
210009 
CDFSEB 
B7 
CA4B5Q 


CDC6BB 
2AGESS 


2A1055 
EDSBGESS 
19 

EB 
242255 
CDFES2 
EDSB1053 
CDFES2 
ED5B1253 
15 

13 
CDFES2 
110200 
CDFES2 


EDSB1455 
CDFES2 
ED5B1655 
CDFES2 


440 
450 
460 


470 ; 
480 L1060: 


490 
500 
510 
520 
530 
540 
JJÛ 
568 
370 
060 


990 ; 
690 ;empilage lere deai-zone (haut) 


618 
628 
658 
640 
65 
668 
670 
688 
690 
70 
710 
720 
730 
740 
TS 


760 ; 


770 


790 
890 
810 
828 


$ 


sempilage 2eme demi-zone (bas) 
798 ; 


LD HL,0 
CALL TESTR 
Œm A 

JP  2,L1020 


CALL GPOS 
LD HL, (MODE) 
ADD HL,DE 

LD (X6),H 


LD DE, (X) 
LD HL,(Y) 
CALL MOVE 


LD DE, (MODE) 
LD HL,0 
CALL TESTR 

ER À 

JP  Z,L1060 


CALL GP0S 

LD HL, (NMODE) 
ADD HL,DE 
ADD HL,DE 

LD (XD),DE 


LD HL,(X) 
LD DE, (NMODE) 
ADD HL,DE 

EX DE,HL 
LD HL, (PILE) 
CALL PUSHDE 
LD DE, (X) 
CALL PUSHDE 
LD DE, (Y) 
INC DE 

INC DE 

CALL PUSHDE 
LD DE,2 
CALL PUSHDE 


LD DE, (XG) 
CALL PUSHDE 
LD DE, (XD) 
CALL PUSHDE 


yvide ? 
joui : continuer vers gauche 


scalcul fini pour xg ere 
ligne 


move Xx,Yy 


svide ? 


fin calcul xd {ere ligne 
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5098 ED5Bi253 839 LD DE, (Y) 
599C CDFE52 840 CALL PUSHDE 
909F 11FEFF 650 LD DE,-2 
5aA2 CDFES2 869 CALL PUSHDE 
J0A5 222253 870 LD (PILE) ,HL 
680 ; 
890 ;DEBUT BOUCLE PRINCIPALE DE SAUT AU TRAITEMENT 
900 ; 
S0AB SABSSS 910 GLOOP: LD  A,(STACK) 
J0AB B7 928 ŒR A pile vide ? 
J0AC C8 950 RET 2 fini ! 
949 ; 
950 PROGRAMME DE TRAVAIL. Retourne en GLOOP si fini (pas de RET, 
968 ;l1a nouvelle pile est uniquement utilisee pour passer 
978 ;les paranetres (zones a remplir) 
980 ; 
JGAD 2A2253 990 LD HL,(PILE) 
J0BG CDU355 1000 CALL POPDE 
J0BS ED531853 1010 LD  (DELY),DE 
JUB7 7B 1028 LD AE 
S0B8 2F 1039 CPL 
5089 5F 1040 LD E,A 
JÛBA 7A 1050 LD A,D 
50BB 2 1860 CPL 
JOBC 57 1070 LD D,A 
J8BD 13 1888 INC DE 
JOBE EDS31A55 1090 LD  (NDELY),DE 
dûC2 CDOS55 1100 CALL POPDE 
JOCS ED531255 1110 LD (Y),DE 
O9C9 CDB355 1120 CALL POPDE 
JOCC ED551653 1139 LD (XD) ,DE 
908 CDUSS 1140 CALL POPDE 
JOD3 ED531453 1150 LD (XG6),DE 
J0D7 222255 1169 LD (PILE) ,HL 
JODA 3A0853 1170 LD A, (STACK) 
50DD 3D 1180 DEC A sraj compteur pile 
SQDE 320855 1190 LD  (STACK),A 
1200 ; 
1219 ;traitesent d'une ligne de la zone 
1220 ; 
O0Ei ED5B1453 1230 NEWLIN: LD DE, (XG) 
O0ES 2A1253 1249 LD HL,(Y) 
S0E8 CDCOBB 1250 CALL MOVE smove *giy 
1268 ; 
JUEB 110009 1278 LD DE,0 
J0EE 210000 1280 LD HL,8 
o6Fi CDFSBB 1290 CALL TESTR scouleur du point ? 
oûF4 67 1300 œŒR A svide ? 


oûF5 CA1051 1310 JP Z,L2869 joui:pousser à gauche 
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J0F8 
JOFC 


5102 
5103 
5106 
5189 
510) 


5110 
5114 
5118 
o11B 
JLiE 
o1iF 


5122 
5125 
5128 
512B 
9120 


512F 
5135 


5136 


913) 
5140 
5145 
5146 


5149 
J14C 
914F 
5150 
5153 
5154 
5157 


EDSBBCSS 
210000 
CDF3BE 
B7 
C2F850 
CDC6BB 
ED531453 
C58851 


DD369100 
EDSBGESS 
210000 
CDF3BE 
B7 
C24951 


110800 
2A1ASS 
CDF3BE 
B7 

C23D51 


DD360101 
CDC6BB 
ED531C55 
221E55 


110000 
2A1855 
CDC3BB 
C51451 


CDC6BB 
2A0C5S 
19 

221453 
AF 

DDBEGL 
CAB851 


132 ; 


1338 ;X6 est du bord, pousser a droite 


1348 ; 


1350 L2020: 


1360 
1370 
1380 
1390 
1400 
1410 
1420 
1439 ; 


LD DE, (MODE) 
LD HL,0 
CALL TESTR 

m A 

JP NZ,L2020 
CALL GPOS 

LD (XG),DE 
JP L220 


;a droite 
;1L Y A UNE COULEUR ? 
sOUI:toujours du bord 


snouvel xg 
ssuite 


1448 ;xg n'est pas du bord, la caler a gauche 
1450 ;tout en verifiant la ligne du dessous pour 
1468 ;detecter les points critiques 


1470 ; 
1480 L2060: 
1490 L2070: 
1500 
1510 


1709 ; 

1710 L2140: 
1720 

1730 

1740 

1750 

1760 

1770 

1780 ; 


LD  (IX+#1),8 
LD DE, (NMODE) 
LD HL,0 

CALL TESTR 

Œm A 

JP  NZ,L2140 


LD DE, 

LD HL, (NDELY) 
CALL TESTR 

œ À 

JP  NZ,L2120 


LD  (IX+1),1 
CALL 6POS 

LD  (X2),DE 
LD (Y2,HL 


LD DE,0 
LD HL,(DELY) 
CALL MOVER 
JP  L2070 


CALL GP0S 

LD HL, (MODE) 
ADD HL,DE 
LD  (X6),HL 
XR A! 

CP  (IX#1) 
JP  2,L2210 


1790 ;Enregistrer un point critique 


1800 ; 


snise a zero flag 


svide ? 


snon:on est a gauche au aax 


du bord ? 
soui pas de probleme 


snouvel xg cale a gauche bord 


flag critique ? 
snon,pas de probleme 
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JISA 2AICS3 1818 LD HL,(X2) 
J15D EDSBBESS 1820 LD DE, (NMODE) 
diéi 19 1830 ADD HL,DE 
0162 EB 1848 EX DE,HL 
0163 2A2253 16850 LD HL, (PILE) 
9i6b CDFES2 1860 CALL PUSHDE 
5169 ED5BICS53 1870 LD DE, (X2) 
J16D CDFES2 1880 CALL PUSHDE 3 XD 
9170 EDSBIESS 1898 LD DE, (Y2) 
5174 CDFES2 1900 CALL PUSHDE 3Y 
9177 EDSBIASS 1910 LD DE, (NDELY) 
517B CDFES52 1920 CALL PUSHDE sdirection zone 
OI7E 222253 19% LD  (PILE),HL 
5181 SADG5S 1940 LD A,(STACK) 
5184 3C 1950 INC A 
0185 320853 1960 LD  (STACK) ,A 
1978 ; 
1988 :FINI de recadrer xg, passer a xd. Travail identique 
1990 ; 
9188 ED5B1655 2000 L221@: LD DE,(XD) 
d18C 2A1255 2010 LD HL,(Y) 
518F CDCOBB 202% CALL MOVE saove xd,y 
2030 ; 
3192 110000 204 LD DE,0 
9195 210009 2058 LD HL,8 
9198 CDF3EB 2060 CALL TESTR ;couleur du point ? 
519E E7 2070 œŒR À svide ? 
919C CAB751 2080 JF 7,12270 soui:pousser adroite 
2898 ; 
2100 ; XD est du bord,pousser a gauche 
2118 ; 
919F EDSBGESS 2120 L2239: LD DE, (NMODE) 
JIAS 210008 2139 LD HL,0 
SiAb CDF3BB 2140 CALL TESTR 
o1iA9 E7 2150 ŒR A stoujours du bord ? 
SIAA C29F51 2160 JF  NZ,L2250 toujours du bord 
J1AD CDC6EBB 2170 CALL GPOS 
JiBQ ED551655 2184 LD (XD) ,DE nouvel xd 
91B4 C32D52 2198 JP  L2458 
2208 ; 


2218 sxd n'est pas du bord, le caler a droite 
2228 ;en regardant la ligne d'avant pour les 
2278 ;points critiques 
2249 ; 
d1B7 DDS68100 2250 L2278: LD (IX+1),0 aise à zero flag 
GiBE EDSB@CSS 2260 L228@: LD  DE,(MODE) 
JIBF 210000 2270 LD HL,8 
JiC? CDF3BE 2288 CALL TESTR 
giCs B7 2290 ŒR A stoujours du bord ? 
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J1Cb C2F051 239 JP NZ,L2550 joui,a droite max,ok. 
2310 ; 
91C9 110000 2320 LD DE,8 
JICC ZAIASS 2330 LD HL,(NDELY) 
JiCF CDFSBB 2549 CALL TESTR point critique ? 
9102 B7 2550 œR A sdu bord ? 
JIDS C2E451 2560 JP  N2,L2550 joui,pas de probleme 
2370 ; 
SiD6 DD560101 2380 LD (IX#i),i 
91DA CDC6BB 2590 CALL GPOS 
J1DD ED531C55 2409 LD (X2),DE 
JiEi 221ES 2410 LD (Y2),H 
2428 ; 
d1E4 110000 2439 L2358: LD DE,Q 
JiE7 2AÏ855 2449 LD HL,(DELY) 
SEA CDC3BE 2450 CALL MOVER 
J1ED C3SBES1 2460 JP L2289 
2470 ; 
SiFG CDCOBB 2489 L235@: CALL GPOS 
JIFS 2ABESS 2490 LD HL,{NMODE) 
oiFé 19 2500 ADD HL,DE 
JiF7 221653 2510 LD (XD),HL 
SFA ÀF 2520 XOR À 
diFB DDBEGI 255 CP  (IX#i) 
dIFE CA2D52 2549 JF Z,L2438 
2558 ; 
2568 enregistrer point critique 
2578 ; 
J2ÿ1 2A22 2580 LD HL, (PILE) 
0204 EDSBICS3 2590 LD DE, (X2) 
d208 CDFES2 2609 CALL PUSHDE 
J20B EB 2618 EX DE,HL 
20C EDABOCSS 2620 LD BC,(MODE) 
5218 09 2638 ADD HL,BC 
9211 EB 264 EX DE,HL 
9212 CDFES2 2650 CALL PUSHDE 3 XD 
9213 EDSBIESS 2669 LD DE, (V2) 
9219 CDFES2 2670 CALL PUSHDE 3Ÿ 
J21C EDSBIASS 2680 LD DE, (NDELY) 
0220 CDFES2 2690 CALL PUSHDE sdirection zone 
J225 222253 2700 LD (PILE) ,HL 
d226 3AB85SS 2710 LD A,(STACK) 
u229 2720 INC A 
J22A 32085 273% LD  (STACK),A 
2740 ; 
275% ;fini de recadrer xd. au travail. 
2768 ; 


S22D 21655 2770 L243@: LD HL, (XD) 
J230 EDSB1453 2780 LD DE, (XG) 


B7 
ED52 
CB7C 
C2A850 


EDSB1455 
2A1255 
COCABB 
EDSBQCSS 
210000 
CDF3BE 
B7 
CA4652 


CDCGBB 
2A165S 
EB 

7 
ED52 
CB7C 
C27A52 


EDSBGESS 
210900 
CDCSBB 
EDSB1453 
2A1255 
CDF6BB 
CSF 052 


CDC6BE 
EDS32053 
EDSBQESS 
210008 
CDC5BB 
ED5B1453 
2A1255 
CDF6BB 
EDSB2055 
2A125 
CDCOBB 


EDSBQC5S 
210000 
CDFSBB 
B7 
C29F52 


2790 
2808 
2818 
2820 
2858 ; 
2849 
2858 
2860 
2870 L2450: 
2880 
2890 
2908 
2918 


2720 
2930 
2940 
2950 
2968 
2978 
2988 
2770 
3000 ; 
3818 

3020 

3050 

3048 

3850 

3060 

3070 

3080 ; 
3090 L2500: 
3100 

5119 

3120 

3130 

3140 

3150 

3169 

3170 

3180 

3190 
3200 ; 
3210 L25530: 
3220 

3259 

3240 

3250 

3268 ; 
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ŒR A 

SBC HL,DE scalcui XD-XG 
BIT 7,H 3xg-xd<0 ? 
JP NZ,GLOOP sfini XD-XG<0 


LD DE, (6) 
LD HL,(WY) 
CALL MOVE 

LD DE, (MODE) 
LD HL,0 

CALL TESTR 

Œ A 


JF 2,L2450 ;pas bord:avancer a droite au 


bord 


CALL GFOS 

LD HL,(XD) 

EX DE,HL 

œR A 

SBC HL,DE scalcul XPOS-XD 
BIT 7,H 3 XPOSKXD 7? 

JF  NZ,L250 joui, probleme 


LD DE, (MODE) 
LD HL,e 

CALL MOVER 

LD DE, (X6) 
LD HL,(Y) 


CALL DRAY ;on remplit la ligne ! 
JF  L2628 sfini pour cette ligne 


CALL GPOS 
LD  (XS),DE ;sauvegarde xpos 
LD DE, (NMODE) 

LD HL,0 

CALL MOVER 

LD DE, (X6) 

LD HL,(Y) 

CALL DRAH son remplit 
LD DE,(XS) 

LD HL,(Y) 

CALL MOVE srepositionne 


LD DE, (MODE) 
LD HL,0 

CALL TESTR 

M A 

JP NZ,L25% ;du bord 
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S2AD 
J2B0 
S2B1 
J2B5 
d2B6 
52B8 
u2BA 


S2BD 
J2C0 
a2C5 
92Cb 
J2CA 
S2CD 
S2Di 
52D4 
52D8 
J2DB 
J2DE 
d2Ei 
92E5 
J2E6 
S2E9 


U2ED 


J2F 
92F3 
J2F7 
32F8 
J2FB 


J2FE 
J2FF 
5300 
5301 
5302 


EM M 
9395 


5306 
3307 
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CDC6BB 
EB 
EDSB1655 
B7 

ED52 
CB7C 
CAFG52 


CDC6BE 
2A2255 
CDFES2 
ED5B1655 
CDFES2 
EDSE1253 
CDFES2 
ED5B1855 
CDFES2 


nNnCT 
222255 


2A2055 
EDS5BUES5 
19 
221653 
3A0BSS 
3C 
320855 


2A1255 
ED5B1855 
19 
221255 
CSE 150 


73 
2B 


72 


C9 


scalcul de xpos-xd 
5*xpos-xd>=0 7 
joui, pas de probleme 


3*g=xpos 


;abandonner zone critique 


3270 CALL GPOS 
3288 EX DE,HL 
3290 LD DE,(XD) 
3300 ŒR A 

3514 SBC HL,DE 
3320 BIT 7,H 

3350 JP  2,L2620 
3540 ; 

3350 ;point critique 

3368 ; 

3570 CALL GPOS 

3380 LD HL, (PILE) 
3390 CALL PUSHDE 
3400 LD DE,(XD) 
3410 CALL PUSHDE 
3420 LD DE, (Y) 
3430 CALL FUSHDE 
3440 LD DE, (DELY) 
3450 CALL FUSHDE 
3469 LD  (PILE),HL 
3470 LD HL,(XS) 
3480 LD DE, (NMODE) 
3498 ADD HL,DE 
3500 LD (XD) ,HL 
3518 LD A, (STACK) 
3529 INC A 

3530 LD  (STACK) ,A 
3549 ; 

3550 FIN DU TRAVAIL SUR LA LIGNE, passer a la suivante 
3568 ; 

3970 L2620: LD HL,(Y) 
3588 LD DE, (DELY) 
3590 ADD HL,DE 
3608 LD  (Y),HL 
3610 JP NEHLIN 
3620 ; 

3650 ; SIMULATION PILE 

3648 ; 

3658 PUSHDE: LD  (CHL),E 
3660 DEC HL 

3670 LD (HL),D 
3688 DEC HL 

3690 RET 

3708 ; 

3718 POPDE: INC HL 

3720 LD D,(HL) 
3730 INC HL 

3740 LD E,(HL) 
3750 RET 
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3760 #L+ 
508 000 3770 STACK: DEFU 0 
J30A 0900 3789 COUL: DEFW 
ospC 0000 3790 MODE: DEFHO 
J30E 0000 3800 NMODE: DEFW Q 
510 0000 3910 X: DEFH @ 
5512 000 3820 Y: DEFW @ 
5514 0000 3850 XG: DEFW 0 
J916 000 3840 XD: DEFW 0 
5518 0090 3050 DELY:  DEFH G 
J31A 0000 3860 NDELY: DEF @ 
osiC 0090 5970 X2: DEFH 0 
J31E 0000 3680 Y2: DEFW U 
J520 0000 3890 XS: DEFH D 
Jo22 0000 3900 PILE: DEFW@ 


Pass 2 errors: 00 


LA ‘HE EEEE EE EE EEE JE JE JE EE 

26 ‘+* Programme 3.7 +#+ 

SO ‘HHHHHFEREREHEEEXXEKXEX 

48 ‘ 

50 ‘programme de remplissage de zones en LM 

68 ‘transposition du programme 3.46 

78 ‘ 

80 MEMORY £S2FFF 

90 DEFINT a-z 

1808 ad-%50808:1ign-1i80 

11@ ctri=@G:READ cH:IF c#="fin" THEN 590 

126 FOR i=1 TO LEN(c#+) STEP 2 

130 c=VAL("&"+MIDE (CH, 1i,2)) 

140 FOKE ad,c:ad=ad+ti:ctrl=ctrl+e 

150 NEXT:READ teste:IF teste‘>ctrl THEN PFRINT'"'Er 
reur DATA ligne"lign:END 

188 lign=lign+1i@:G60T0 11@ 

178 

180 DATA FD21@0852FD360B0E721FF3F2222S53DD2180455:2A0 
C, 1589 

190 DATA 537D2F46F7/7C2F6725220ES2CDC6BEEDS TZ 185522 
2, 1867 

200 DATA S3EDSROES 321 @G@B00CDF3BBB7/7CAZISGCDCEEEZAG 


C, 232 


210 DATA 5319221453ED5B105232A1252CDCO0BBEDSBOCS37 
1, 1855 

228 DATA @GGG@CDF=BBB7CAABSOCDCOER?AGES:1919ED551 
b, 2296 
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230 DATA 532A1053ED5B0ES319EB2A2253CDFES2ED5B105 
3, 2036 

240 DATA CDFES2ED5B12531313CDFES2110200CDFES2EDS 
B, 2437 

250 DATA 1453CDFESZEDSB16S3CDFES2EDSB12S3CDFES21 
1, 2605 

268 DATA FEFFCDFES22222533A0852B7C82A2253CD05S 
D, 2420 

270 DATA 5319537B2F5F7A2F5713ED531A53CD0353ED53 
2, 1788 

28@ DATA S3CD0353ED531653CD0353ED5314522727553A0 
8, 1720 

290 DATA 533D220853ED5B14532A12S:CDC0PB1102002710 
G, 1493 

300 DATA G@CDF3BBB7CA1051EDS5BQCS:71Q0000CDF =BBB7C 
2, 2585 

318 DATA F8S@CDC6BBEDS31453C38851DD24640100EDSEB0ES 
3, 2454 


320 DATA 210000CDF3BEB/7C2495111BP8222AR1ASSCDFIBBE 


7, 2185 

330 DATA CZ23D51DD369101CDC6BBEDS31C52221E53110200 
@, 1798 

348 DATA 2A1853CDC3BBC31451CDC6BB2AUCS519221455A 
F, 2096 

350 DATA DDBEU1CA88512A1CSS3EDSB0ESS19EB2A227S2CDF 
E, 7287 

368 DATA S52ED5B1CS3CDFES2EDSB1ES=CDFES2EDSB1ASEC 
D, 2686 

370 DATA FES22222523A08533C320853ED5B16532A1252C 
D, 1618 

380 DATA COBB110000710G00CDF3BB87CAB7S1EDSERQESEZ 
1, 2171 

390 DATA @G@@G@CDF3REB7C29F51CDC6BBEDSS16S2CE2D52 
D, 7810 

A8G DATA 36@1BGEDSEUCS32710@@0QCDFEBEE7C2F0S 111000 
@, 1861 

418 DATA ZAÏASSCDF3EBEEB7C2E451DD360101CDC6BBEDSZ1 
C, 2687 

420 DATA 53221E531100007A1853CDC3BEBC3BBS1CDCéBEZ 
A, 2078 

430 DATA GES3192216S53AFDDBREGICAZDS227A722S3EDSB1CS 
3, 1775 


448 DATA CDFESZ2EBEDA4BQCS309EBCDFESZEDSB1ESSCDFES 
2, 2950 

458 DATA EDSB1ASSCDFES222227535A08533C:208527A16S 
3, 1626 

468 DATA ED5B1453B7ED52CB7CC2A8S0EDSB14532A12S7 
D, 2481 
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478 DATA COBBEDSB0CS5:210022CDFS3BBB7CA46S2CDCGERZ 
A, 2629 

480 DATA 1653EBB7EDS52CER7CC27AS2EDSBRGES3210C@00CDC 
3, 2425 

490 DATA BBEDSE14522A12S2CDF6BBC3FO0S2CDC4BEEDSE2 
Q, 2858 

SO DATA S3EDSE0ES321@@00CDCEBBEDSB145E2A12S3CDF 
b, 2153 

510 DATA BBEDS5ER20532A1252CDCOBBEDSBQCS:21C@02CDF 
3, 2261 

520 DATA BBB7C29FS52CDC6BBEEEDSE1652BR7EDS2CB7CCAF 
Q, 2334 

530 DATA S?CDC6BB2A22S3CDFES2ED5E16S2CDFES2EDSB1 
2, 26927 

549 DATA S3CDFES2EDS5B1852CDFESZ2222522A205:EDSEC 
E, 2250 

550 DATA 52192216523A08522C2208522112S2ED5B1853 
9, 1720 

S60 DATA 221253C3E150737B722P09225623SEC9, 1602 

578 DATA “fin",@ 

582 RANDOMIZE TIME/=:0@ 

590 DEFINT a-z 

&6@G MODE @ 

61@ FOR i=Q TO 1S:INK i ,i*2:NEXT 

628 FOR i=i TO 20:MOVE 64G*AND, 480*RND 

638 DRAW G64Bx*RND, 40G*RND ,2+INT (RND#12):NEXT 

648 FLOT G,8:DRAW 639,@:DRAW 629,258: DRAW 0,250: 


DRAW @,@ 
658 PLOT 800,800,1:MOVE 220,709 
668 c=i 


678 GOSUE 780 

680 LOCATE 1,1: PRINT"'TAPEZ UNE TOUCHE FOUR CONTI 
NUER" 

690 WHILE INÉEY#="":WEND: RUN 590 

798 base=85208:POKE baset+2,1:FOKÉE base+4,4:CALL 
5000 

718 RETURN 


Remarques sur la routine assembleur 


Cependant, il convient de remarquer la zone associée au stockage des 
points particuliers. Pour éviter un écrasement de la pile système, une pile 
simulée est utilisée, placée à l'adresse $3FFF. Cette pile est gérée par les 
routines POPDE et PUSHDE qui placent ou retirent le registre DE dans cette 
pile, en remettant à jour le pointeur de pile HL. Il faut bien comprendre que 
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la pile ainsi simulée remonte en mémoire vers le bas : si beaucoup de 
points spéciaux se présentent dans la pile, celle-ci va se rapprocher de 
$3000. C'est pourquoi le programme Basic appelant place un MEMORY 
&2FFF. Cela réserve un espace de 4 Ko pour cette pile, permettant de 
stocker ainsi 500 points spéciaux. C'est une prévision pessimiste : il 
suffirait de prévoir de la place pour une vingtaine de points. Mais encore 
une fois, il vaut mieux penser au pire, et prévoir large. Notez également 
qu'il est impossible de prévoir l'encombrement de cette pile. Nous ne 
connaissons pas le nombre de points spéciaux à l'avance. C'est pourquoi 
nous ne pouvons pas prendre le risque de la placer au-dessus des routines. 
La seule solution est de l'installer totalement en dehors de la zone des 
programmes. 


Vous constatez toutefois, dans cette application, l'importance des rou- 
tines système. Sans elles, les tests seraient un véritable calvaire. Le point 
que nous avions souligné apparaît maintenant clairement : lorsque l'appli- 
cation nécessite un accès individuel des points et un système de coordon- 
nées, le pack système intégré est plus qu'utile. 
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OBJETS GRAPHIQUES 


Nous l'avons constaté de façon spectaculaire lors des précédents 
chapitres, le traitement des graphismes par un accès direct à la mémoire 
écran est beaucoup plus rapide que l'utilisation des routines système. Le 
fait d'allumer un point par POKE ou LD en LM est un facteur de vitesse 
essentiel. Mais nous avons également pu affronter les difficultés de 
programmation de ce langage. 


Pour obtenir un compromis qui soit assez facile à programmer et tout de 
même très rapide, nous allons devoir jongler avec les octets et la mémoire 
écran. 


Nous devons avant tout définir une contrainte essentielle : quel que soit 
le but visé, nous devrons traiter les graphismes sous forme d'objets 
graphiques. Cela suppose que nous devrons coder en mémoire où sur 
mémoire de masse tous les objets à manipuler avant de pouvoir traiter 
ceux-ci sur l'écran. 


Comment peut-on définir un objet graphique ? Certains constructeurs 
ont inclus dans leur machine un processeur où des routines capables de 
gérer des sprites ou lutins. Ces lutins correspondent exactement à ce que 
nous appelons un objet graphique. Ils représentent, sous la forme d'un 
certain nombre de données en mémoire, un dessin à placer sur l'écran 
selon certaines règles. 









à 
1 Zone recouverte 


par l'objet 


Schéma 4.1 Objet graphique. 
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Pour notre part, nos objets graphiques devront utiliser un format 
standard qui leur sera commun. || faudra également que nous puissions les 
sauver sur cassette ou disquette ou les traiter facilement. 


Si nous considérons par exemple la totalité de l'image écran comme un 
objet, nous pouvons sauver cet objet par une simple commande Basic : 


SAVE "ECRAN’",B,&C000,&4000 


Cette commande indique que nous voulons sauver, dans un fichier 
nommé ECRAN.BIN, le contenu de la mémoire des adresses &C000 à 
&C000+&4000. Cela sauvegarde dans le fichier la totalité de la mémoire 
écran. Vous pouvez ensuite recharger l’objet n'importe où en mémoire par 
une commande comme LOAD"ECRAN". || est possible, ainsi, de stocker 
l'écran ailleurs que dans la mémoire écran, donc sans l'afficher tel qu'il a 
été sauvé. Le problème de cette commande, c'est qu'elle génère un fichier 
de 16 Ko. Si nous traitons des objets de ce type, nous ne pourrons en 
stocker que deux en mémoire, plus un affiché. Inutile de dire qu'il est 
inconcevable de traiter des écrans entiers. 


La plupart des jeux d'action récents manipulent une cinquantaine, voire 
une centaine d'objets différents sans aucun chargement de fichier. Tous 
ces objets sont stockés en mémoire et affichés, effacés, selon les directives 
du programme. Nous nous pencherons dans les chapitres suivants sur les 
problèmes de gestion des objets graphiques. Pour l'instant, notre préoccu- 
pation est la suivante : comment stocker en mémoire un objet graphique 
facile à afficher et à mémoriser ? 


STRUCTURE DE LA MÉMOIRE ÉCRAN 


Si vous avez lu les chapitres précédents, vous savez que la mémoire 
écran possède une structure relativement déroutante. L'adresse $C000 
représente le coin supérieur gauche de l'écran, $C001 est la zone située à sa 
droite, $C002 encore un peu plus à droite, et ainsi de suite. Tout devient 
curieux lorsque nous arrivons à $C04F. En effet, cette adresse représente la 
dernière zone de la ligne du haut de l'écran. La logique voudrait que 
l'adresse suivante, $C050, représente la gauche de la deuxième ligne. 
Malheureusement, elle représente la gauche de la neuvième ligne. 


Nous nous sommes déjà penchés sur cette organisation mystérieuse. 
Elle est due à une astuce permettant une synchronisation facile du 
balayage vidéo et des affichages, ce qui donne un aspect net à l'écran. Mais 
cette astuce matérielle ne facilite pas la programmation : en effet, le 
traitement des objets graphiques est facile tant qu'on ne change pas de 
ligne graphique. || suffit, pour progresser vers la droite sur l'écran, 
d'ajouter 1 à l'adresse, et de retrancher 1 pour revenir en arrière. En 
revanche, tout se complique si l’on doit passer à la ligne du dessous ou du 
dessus. L'adresse n'est pas simple à calculer. 
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Fort heureusement, plusieurs solutions existent pour vaincre cet obsta- 
cle. La plus simple des solutions consiste à utiliser les quatre routines 
fournies par le logiciel système. En effet, Amstrad a jugé utile de fournir 
des routines calculant les adresses écran à partir d'une adresse donnée. 
Ainsi, si l'adresse actuelle est dans le registre 16 bits HL, un CALL +BC26 
calculera dans HL l'adresse de la position graphique située une ligne plus 
bas. Et cela simplifie grandement les routines de traitement. 


Un inconvénient : ces appels de routines ralentissent le déroulement des 
opérations. En effet, leur programmation tient compte d'éventuels déca- 
lages en RAM suite à un éventuel scrolling. Cela vient d'une autre astuce 
matérielle. Elle ne nous intéresse pas ici ; en effet nous ne ferons jamais de 
scrolling lors de nos programmes. Après un scrolling, l'adresse $C000 ne 
représente pas forcément le coin en haut à gauche ! Ce qui ne simplifie pas 
une tâche déjà ardue pour les programmes. 


Donc, ces quatre routines système sont d'un emploi simple (et ne 
modifient aucun autre registre que HL, ce qui les rend encore plus 
tentantes), mais lent. Attention, lent ne veut pas dire ici inexploitable. Elles 
sont lentes dans la mesure où elles font plus que ce qu'on leur demande. 


Une autre solution, plus astucieuse, consiste à faire ses propres routines. 
Cela implique une bonne connaissance de l’arithmétique 16 bits Z-80. Pour 
information, voici la routine qui permet de descendre d'une ligne dans HL : 


GOBAS: PUSH BC : Sauvegarde du registre BC pour 
travail ; 
LD BC,#800 : cela est l’offset dans un cas normal; 
ADD  HL,BC : passe à la ligne suivante dans cas 
normal ; 
JP NC,FINAL : c'était bien un cas normal ; 
LD BC,#C050 : offset pour revenir d'un bloc de huit 
lignes ; 
ADD HL,BC : repositionne sur la bonne ligne ; 
FINAL: POP BC : récupère BC ; 
RET : fin et retour. 


Il est relativement facile de programmer, selon le même principe, une 
routine remontant d'une ligne. 


Il Y a une dernière solution très intéressante : elle consiste à utiliser ce 
qu'on appelle une table d’index. Pour ce faire, on range en mémoire les 200 
adresses de débuts de ligne de l'écran. Pour se placer à la ligne 48, 20° 
octet, on prend la 48° adresse de la table, à laquelle on ajoute 20. Rien de 
plus. 


Cette solution est encombrante mais rapide. Elle permet notamment de 
calculer directement et simplement une adresse écran d'après des coor- 
données. Nous ne l'utiliserons pas dans ce livre (sauf dans le programme 
du chapitre 9). 

Pour l'heure, nous allons nous contenter des routines système, qui ont 
tout de même l'avantage de la clarté. 
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RESTITUTION DES OBJETS 


Notre principal problème est le suivant : alors que la structure de l'écran 
n'est pas linéaire en mémoire, nous devons gérer des objets graphiques 
qui seront placés en mémoire dans un bloc compact d'octets. Tout va bien 
si les objets n'utilisent qu'une seule ligne graphique de l'écran. Mais il va 
de soi qu'un tel cas est extrêmement rare. La plupart du temps, les objets 
occuperont un certain nombre de lignes. 


La solution est de définir un format standard des objets. En l'occurrence, 
le format le plus pratique est généralement le rectangle. Si chaque objet est 
placé dans un rectangle avant sa mémorisation, il sera caractérisé par sa 
largeur et sa hauteur. Nous saurons alors combien d'octets de l’objet 
constituent une ligne de l'écran (grâce à la largeur) et combien de lignes il 
utilise (grâce à la hauteur). L'algorithme de dessin à partir de l'objet sera 
alors le suivant : 


e Pour H (hauteur) lignes : 
Envoyer L (largeur) octets sur l'écran. 
Descendre d'une ligne sur l'écran. 

e Suite du dessin. 


Bien entendu, cela est très simple à programmer, mais nous impose tout 
de même plusieurs contraintes. Tout d'abord, puisque nous travaillons à 
partir d'octets et non de points, nous n’aurons plus accès à chaque point 
individuellement. De plus, nous devrons coder les dessins avant leur 
mémorisation. 


Avant de nous pencher sur la gestion des objets, nous allons prendre une 
grave décision : seul le MODE 0 sera utilisé. En effet, il est le seul à 
proposer seize stylos différents. Nous avons besoin de couleurs pour les 
objets car nous les utiliserons la plupart du temps dans des jeux. De plus, 
dans ce mode, un octet de la mémoire écran ne comporte que deux points 
graphiques. L'impossibilité de traiter chaque point sera donc moins 
contraignante, et de plus, nous le constaterons plus tard, nous pourrons 
tout de même accéder sans trop de difficulté à chacun des points d'un 
octet. 


Nous devons réaliser deux routines : l’une codera un dessin en mémoire, 
l’autre dessinera un objet sur l'écran. 


En effet, il est beaucoup plus simple de dessiner un objet point par point 
que de le coder octet par octet. Pour ce travail, il faudrait utiliser une table 
des masques et calculer chaque octet. Nous pouvons nous faciliter ce 
travail car le codage des dessins n’a lieu qu'une seule fois : il faut les coder 
avant de programmer l'application. Une fois les objets codés, nous n'avons 
plus besoin de leur dessin point par point, seul nous importe l’objet placé 
en mémoire, directement utilisable par la routine de restitution d'objet. 
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La routine de codage d'un objet est simple. On commence par dessiner 
l'objet point par point en haut de l'écran et à gauche, puis on le code ligne 
après ligne à une adresse fixe de la mémoire. Il faut bien sûr pour cela 
connaître sa largeur et sa hauteur. Une fois le codage achevé, on peut le 
sauver sous forme de fichier binaire. 


10 

20 ‘programme de creation de decor 

30 ‘dessine le decor destine aux routines des ch 
apitres 4 a 8 

4Q ‘et cree le fichier binaire correspondant 

90 ‘“NDA : 

68 ‘evitez les erreurs, tapez ce listing en mode 
2 (80 caracteres par ligne): 

76 ‘chaque data hexa comporte exactement 80 cara 
cteres (le dernier tape arrive 

8Q ‘juste en dessous et a gauche du premier). 

98 ‘Bon courage ! 

100 

110 MODE @ 

12@ FOR I=0@ TO 15 

130 INK I,ASC(MID#("ACLFSPGJOLJXSDZO" ,1+1,1))-85 

148 NEXT 

150 

169 ‘affichage haut ecran 

170 ” 

18Q ae=49152:l1ign-46@ 

190 ad=ae 

2008 FOR o=1 TO 2 

210 ctril=@6:READ c#:1F c$="fin" THEN 320 

2206 FOR i=1 TO LEN(c#) STEP 2 

230 c=VAL("&"+MID#(c#,i,2)) 

248 POKE ad,c:ad=adti:ctrl=ctrl+c 

250 NEXT:READ teste:IF teste<>ctrl THEN PRINT'"Er 
reur DATA ligne"lign:END 

260 lign=lign+1@ 

27@ NEXT o 

280 ae=ae+&800:1IF ae>:653535 THEN 22-ae+" 050 

290 GOTO 190 

300 

310 

320 ae=64768 

330 ad=ae 

340 FOR o=1 TO 2 

350 ctri=0:READ c#:1F c$="fin" THE 44€ 

360 FOR i=1 TO LEN(c#) STEP 2 

370 c=VAL("&"+MID#+(c#,i,2)) 

380 POKE ad,c:ad=ad+ti:ctrl=ctrl+c 

390 NEXT:READ teste:IF teste<>ctrl THEN PRINT'"Er 
reur DATA ligne"lign:END 

4008 lign=lign+i@ 

41@ NEXT o 

420 ae=ae+%800:1IF a4e:65535 THEN ae=ae+&C250 

430 GOTO 330 

44Q SAVE"image" ,b,%C000,1464584 

450 
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468 DATA F3F3F3F3F3F3FSF3F3F3SF3FSF3F3FSFSFSFSF3F 
ZSF3FIFSFSFSFIFIFSFSFSFSFSFSFSFSF3FSF3FEFS, 97 
20 


47@ DATA F3F3F3F3F3F3F3F3FSF3F3F3FSFSFSFSFSFSFSF 
SFSFSFSFSFSFSFSFSFSFSFSF3FSFSFSFSF3FSFSFS, 97 
za 

480 DATA FSF3FSFSFSFSFSFSFSFSFSF SF SF SFIF SF SFIFSF 
ZFSFSFSFSFSFSESFSFSFSFSFSFSFSFSFSFSFSFSFE, 97 
20 

49Q DATA F3F3F3F3F3F3F3SFSFSFSFSFSFSF3F3F3FSFSFSF 
SFSFSFSFISFSFSFSFSFSFSFSFSFSFSFSFSF3FSF3FS, 97 
20 

500 DATA F3F3F3F3F3F3F3F3F3F3F3F3SFS3FSF3F3FSF3F3F 
ZSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFS3FSFS, 97 
20 

510 DATA F3F3F3F3F3F3F3F3FSF3SFSFSFSFSF3F3F3F3F3F 
SFSFIFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFS, 97 
2a 

520 DATA F3F3F3F3F3F3F3F3SFSFSFSFSF3SF3F3FSFSFSFSF 

SFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSF3FSFS, 97 
20 

530 DATA F3F3F3F3F3F3F3F3F3FSFSF3FSFS3F3SFSFSFSFSF 
SFSFSFSFSFSFEFSFSFSESFSFSFSFSFSFSF3FS3FSFS, 97 
za 

540 DATA F3F3F3F3F3F3F3FSFSFSFSFSFSFSFSF3F3FSFSF 
SF3FSFSFSFSFSFSFSESFSFSFSFSFSFSFSFSFSFSFS, 97 
20 

550 DATA F3F3F3F3F3F3F3F3FSFSFSFSFSFSFSFSFSFSFSF 
ZFSF3FSFSFSF3FSFSFSFSFSFSFSFSFSFSFSFSFSFSZ, 97 
za 

560 DATA F3F3F3F3F3F3FSFSFSFSF3F3F3F3FSFSFSFSFSF 
SFSFSFSFIFSFSFIFSFSFSFSFSFSFSFSFSFS3F3F3B6, 96 
59 

57Q DATA 3C3C3C3C79F3F3F3F3F3SF3SF3F3F3F3FSFSFSFSF 
SF3FSFSFSFSFSFSFSFSESFSFSFSFSFSFSFSFZFSFS, 88 
66 

580 DATA F3F3F3F3F3F3F3SF3F3F3FSF3F3F3FSFSFSFSFSF 
ZF3F3FSFSFSFSFSFIFSFIFSFSFIFSF33C3CECECEC, 88 
05 

590 DATA 3C3C3C3C3C3C3SCSCSCSCSCFSF3FSF SF SF SFSFSF 
SFSFSF3FSFSFSFSFSFSFSFSFSFSFSFSFSFSF3FSFS, 77 
a7 

60@ DATA F3F3F3F3F3F3F3F3F3F3F3F3FSFSF3SFSFSFSFSF 
ZF3FSFSFSFSFSFSFEB6SC3CECECICEC3CSCSCSCEC, 76 
48 

61@ DATA 3C3C3C3C3C3C3CSC3CSCSC3CSCSC3CECECECECE 
CFIFSFSFSFSFSFSFIF IF SF SF SFSFSFSFSFSFSFSFS, 60 
6@ 

620 DATA F3F3F3F3F3F3F3F3FSF3SF3F3F3F3SF3FSFSF3F3F 
SF3B63C3C3CSC3C3C3C3C3CECICSCECSCECSCECSC, 63 
65 

30 DATA 3C3C3C3C3C3C3CSC3C3CSCSC3C3C3C3CSC3C3CS 
CSC3C3C3CECECECICECSCFSFSFSFSFSFSFSFSFSFS, 42 
30 

64Q DATA F3F3F3F3F3F3F3FSFSFSFSF3F323C3C3C3C3C3CS 
CSCSCSC3C3CSC3C3C3CSCSCECSCSCSCSCECECECEC, 47 
79 

650 DATA 3C3C3C3C3C3C3CSCSCSCSCECECSCSCECECSCECE 
CSCSCSCSCSCSCECECECICECECECECFSF3F3FSFIFS, 34 
78 

668 DATA F3F3F3F3F3F3B63C3CSC3C3C3C3CSC3CECSCSCS 
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CICZCECECECECECECECSCSCECECSCSCSCECECECSC, 36 
20 
Ep 
67@ DATA 3C3C3C3C3CEC3C3C3CECSCECSCECECECSCECSCE 
C3C3C3C3C3C3C3C3CSCECECYSCICECECEC79F3F3FS, 30 
10 
688 DATA F3F3F3F33C3C3C3C3C3C3C3C3C3C3SC3CSC3CSCS 
C3C3C3SC3C3CSC3C3C3CSCSCSCSCICSCSCSCSCECEC, 31 
32 
690 DATA 3C3C3C3C3C3C3C3C3C3CSC3C3CSCSCSCSCSCSCSE 
ZC3C3C3C3CSC3CEC3C3C3C3CSCSCSCSCECEC79F3, 26 
44 
70@ DATA F3F3B63C3C3C3C3C3C3C3C3CSCSC3SCSCECSCSCS 
C3CSC3C3CSC3C3CSCSC3CSC3CSCSC3CSCSCSCSCSC, 28 
88 
710 DATA 3CF@FOF@FOZCSC3C3C3C3CECSC3C3CSCECECECE 
C3C3C3C3C3CECSCECECSCECICECECECECECECSC79, 31 
81 
720 DATA 3C3C3C3C3C3C3C3C3C3C3CSC3CSCSC3C3CSCECS 
C3C3CSC3C3CSC3CSCEC3C3CECSCSCSCECECSCFOFO, 27 
60 
730 DATA FOFGF@F@OFOF@F@FABASCSCSCECSCSCECSCECECS 
CSC3CSC3CSCSCSCSCSCEC3CSCSCECSCSCICECECEC, 39 
a 
740 DATA 3C3C3C3C3C3C3C3C3C3C3CSC3CECSCECECECECE 
C3C3C3C3C3CSC3CECSCSCECECSCECECFOFOFOFOFO, 33 
aa 
750 DATA F@F@F@F@F@FGFOFOF@FOFUFABA3CEC3CICSCSCEZ 
C3C3C3C3C3C3C3C3C3C3CECZCECSCSCECECECECEC, 46 
80 
768 DATA 3C3C3C3C3C3C3C3C3C3CSCECSC3CECSCECECSCZ 
C3C3C3C3C3CSC3CSC3CFOFOFOFOF@FOFOF@FOFOFG, 43 
80 
77@ DATA F@FGFGF@FGFG@F@FGF@FGF@FGF@F@F@F@FGSCECE 
C3C3C3C3CSCSC3C3CECECSCSCECECECZCECSCECEC, 54 
60 
780 DATA 3C3C3C3C3C3C3C3C3C3C3C3C3C3CECSC3C3CECE 
C3C3C78FO0FOFOFGFOFOFGFOFOFGFGF@GFOF@FOFOFG, 55 
20 
798 DATA F@F@FG@F@FGFGF@F@FOQF QF @FOF@F@FOF@F@FOFOF 
OFOB4Z3CSC3C3CSCSCSCSCSC3C3CECECECECICECSC, 63 
aa 
800 DATA 3C3C3C3C3C3C3C3C3C3C3C3CECSCECSCEC78F OF 
OFOFGFOFGFOFOFQGFOF@FOFGF@F@F OF GF@F@FGFOFO, 64 
2Q 
810 DATA F@FO@F@F@FGFG@F @F@F@F@F @F@FGF@FG@F QF FGF @GF 
OFOFOFOFASC3CECEC3CZCECZCECECECSCECECECSC, 67 
2@ 
820 DATA 3C3C3C3C3C3C3C3C3C3CECSCSCSC78F OF OF OF @F 
OFGFOFOFOFOFOFOFOFOFOFOFOFOF@F@F@FGFGFOFO, 69 
6@ 
830 DATA FOFO3F3F3F3FFQ@FOFOGFG@F@FOQF @F G@FGF@FG@FGF@F 
OFGFGFOFOFOF@B4ZCIC3C3C3CZCICECECECECECEC, 64 
92 
840 DATA 3C3C3C3C3C3C3C3C3C3C78F@F OF OF OF OF QF @F @F 
OFOFOFOFOFGFOFOF@FOFOFGFOFOFGFGFGF@OF@FO3F, 75 
a5 
SSQ DATA 3F3F3F3F2F3FSF3F3F3F7AF@FQFOFOF QF OF @F@F 
OFOFOF@FOF@FOFGFGF@BA4ZCEC3CECECECSCECSCEC, 58 
s2 
860 DATA 3C3C3C3C3C3C3CF OF OF O@F GF OF @F GF GF QF @F @F @F 
OFGFOFOFGFGFOFOFOFOFOF@BSZF “FSFSFSFZFEFEF, 68 
85 


ACCÈS DIRECT MÉMOIRE ÉCRAN | 135 


878 DATA 3F3F3F3F3F3F3F3F3F3F3F3F3F7AF@FOFO@FOFOF 
OFOFGF OF GFOGFGFOFOF@FGFOFOBAZCSCECSCECSCSC, 58 
61 
880 DATA 3C3C3C3C78F0@F GF GF OF @F OF QF OF QGFQFGF QF OF OF 
OFOFOFGFGFOFOFOSF3FSFSFSFSFSFSFSFSFSFSFSF, 64 
59 
890 DATA 3F3F3F3F3F3F3F3F3F3FSF3F3FSFSFS3F3F3F3F7 
AFOF@F@FOFOF@F@F@OFGFOF@F@FOFOFGF@SCECSECSC, 53 
99 
90@ DATA 3C3CFOFQFOF@FOF@F OF OF GF@F OF QFQF@F@F@F@F 
OFGFOFOSFSF3FSFIFSFSFSFSFSFSFSFSF3FSFSFSF, 62 
ai 
910 DATA 3F3F3F3C3C3D3F3F3F3FSF3FSFSFSF3F3F3F3FS 
F3F3F3F3FF@FOFOFOFOFOFGF@F@FOF@FGF@FOSCSC, 49 
84 
920 DATA 3C78F@F@F@FOF@F@F@F@FGFOFO@F@FGFOFOF@FOE 
SSFIFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSF, 57 
a1 
930 DATA 3F3F3C3C3C3CSDSF3FSF3F3FSFSFSF3FSFSFSFE 
FSFSF3F3F3F3F3F3FFOFOFOFOFOFOFOFOFOFOFOB4, 45 
70 
940 DATA F@F@FGFG@F@FG@F OF GF@FGF@F OF OF UF @F@F@SF3F 3 
FSF3FSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFS3F, 55 
29 
950 DATA 3F3E3C3C3CSC3CSFSFSFSFSFSFSFSFSF3F3FSFS 
ZF3FSFSFSFSFSFSF3F3F3F7AFOFOFOFOFOFOFOFO, 29 
79 
968 DATA FOF@FUFGF@F@F OF @FOF@F OF OF OF AF ASF 3FSFSFS 
FSFSFSFSFSFSESESFSFSFSFZFSFSFSFSFSFSFSFSF, 51 
qe 
978 DATA 3F3C3C3C3CSCSCEDSFSFSF3FSFSFSFSFSFSF3FS 
FSFSFSF3FSFSFSFSFSF3FSFSFSF3FFOFOFOFOFOFO, 25 
62 
980 DATA FOF@F@F@F@F@F@F@F@FAFOFOSFSFSF3FSFEFSFS 
SF3F3F3FSFSFOBCSCSCEEFSFSF3FSFSFSFSF3F3E, 50 
84 
998 DATA 3F3C3C3C3CSC3CSDEFS3F3FSFSFSFSFSF3FSFSFS 
SFSFSFSFSFSFSFSFSFSEZFSFS3F3F3F7AF@FOFOFO, 22 
67 
1000 DATA FOFGFOF@F@FOF@FOFOSFSFSFSFSFSFSFSFSFSF 
3F3F3F6BC3CICSCSCSCICICECSCISF SF SF SF SF 3FEF , 
5477 
1818 DATA 3E3C3C3C3C3C3CSCSFSFSFSF3FSFSFSFEFS3FSF 
3F3FCSC3CSCESFSFSFSFSFSF3F3FSFSFZFSFFOFOFO, 
3557 
1820 DATA FGFGFOFOFOFOBS3F3FSFSFSFS3FSFSFS3FSF3F3F 
CSCSCSCSC3C3C3CSCSCECECECECECSCECE973F3F EF, 
6032 
103@ DATA 3E3C3C3CSC3CSC3CSFSFSFSFSFS3F3F3F6BC3CS 
CSCSC3CSCSCSCECSC3973FSF3F3F3F3FSFSFS3FFOFO, 
4436 
1040 DATA FGF@FOFGFGSF3F3F3FSFSFS3FSFSFSF3FCSCECS 
CICECEC3C3CECSCSCSC3CSCECSCECECSCECECSCEEF , 
6441 
1050 DATA 3E3C3C3C3C3C3C3CSFSFSFSFCSCSCECSCECSCS 
CICICSC3C3C3C3CSCSCSCSC3973F3F3F3F SF SF SF FO, 
5271 
1060 DATA F@GFGF@FOSFSFSF3F3FSF3F3F3F6BCSCECECECZ 
CSCSCSCSCSC3C3CSCSCSCICICECSCSCECSCSCECECS, 
6704 
1878 DATA 3C3C3CSCSCSCSCSC69CSCSCSCSC3CSCSC3CSCS 
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C3C3CSCFCFCFC3C3CSC3CSCSCSCZCESF SF SF SF EF 7A, 
9933 
1080 DATA F@FOFOSF3FSFSFSF3F3F3FCSCSCECSCECECECS 
C3CSCSCSC3C3C3CSCSCECECECSCECECECECECSCSECS, 
6879 
1090 DATA 3C3C3C3C3C3C3C3C69CSCSCSCEC3CSCSCECSCF 
CFCFCFCFCFCFCFCFCFCFC3SC3CS3C3C3CS3C3973FS3F5SF, 
6322 
1100 DATA F@GFO3F3F3FS3FS3FSFS3FCSCSCSCSCECSC7CFCFCF 
CFCFCFCFCFCFCFCFCBC3C3CSCSC3CSCS3CECSCSCSCS, 
7110 
111@ DATA 3C3C3C3C3C3C3C3C69C3CSCSCSC7CFCFCFCFCF 
CFCFCF8EOC4DCFCFCFCFCFCFCSCSC3CSCSCSCSSF EF , 
6184 
112Q DATA FOBS5F53F3F3FS3F6BCS3SCSCSC3CSC7/7CFCFCFCFCF 
CFCFCFCFCFCFCFCFCFCFCFCFCBC3C3C3CSCSCSCECS, 
7299 
113@ DATA 3C3C3C3C3C3C3CSC69CSCECSCFCFCFCFCFCFCF 
@CACOCOCCC8COCOCADCFCFCFCFCFCSCSCSCSCECESF , 
5380 
114Q DATA FO3F3FSFS3FSFSF6BCSCSCSCFCFCFCFCFCFCFCF 
CF8EQCOCOCCFCFCFCFCFCFCFCFCFCFCFESC3C3C396, 
6558 
115@ DATA 3C3C3C3C3C3C3CSECSCCECSECFCFCFCF QCOCACAC 
GCO303503:0:030303:0C@COCCFCFCFOCFCFOCFCZSCZ3C397, 
3853 
1168 DATA B53F3F3F3F6BCS3CS3CSC7CFCFCFCFCFCFCFCF AC 
GCOCOCOCOCOCOCADCFCFCFCFCFCFCFCFCFCFC3C396, 
95763 
117Q DATA 3C3C3C3C3CSCSCECECCSC/7CFCFCFQ@CACACOCOC 
OCOCCCCC8905:0:03:03:0COCOCOCCFCFCFCFCFCBCSCZ, 
3872 
1180 DATA 3F3F3F3FC3C3CSCSCFCFCFCFCFCFCFS8EQ@CACQC 
GCOCOCOCOCACOCACOCACOCOCCFCFCFCFCFCFCFCS396, 
4597 
119Q DATA 3C3C3C3C3C3CSCSCSECCECECECSCFCFCFCFCECF 
CFOCOCACOCOCOCOCAaCA4DCFCFCFCFCBC3CSCZCSCSECS, 
9143 
1200 DATA 3F3F6BC3CSCSCFCFCFCFCFCFCF8EQCACOCACEC 
090:0:03:0303:G0CO@C@CAC COCA CECOCADECFCFCFCFCB96, 
35847 
1210 DATA 3CS3C3CSCSCSCSECSCSECCSCSCECZCECECSEC7CFCF 
CFCFCFCFCFCFCFCFCFCFCS3CS3C3CSCSCSC3C3CSCSECS, 
6735 
1220 DATA 3F6BC3C3C7CF@CCFCFCF8ERCOCOCOCOCOEDE0Z 
3SO3CCCCCCO303:03:05:060COCBCACRCACACADEFCF 96, 
3171 
1230 DATA 3C3CSCSCSCSC3CECECCSCSCECECSECECECSECSECS 
CSCECSCECFCFCBCZCSC3C3CZ3C3C3C3CECSCICICSECS, 
6617 
1240 DATA &BC3C3CFCFCFCFOCACOCACACASAEOEAEAECCCC 
CCCCCCCOCAaCCCCCCa:05:0:03:030COCACUCOCAaCCF 976, 
3864 
1250 DATA 3SC3CSCSCSCECSCSCECCECECSECSCECSCECECECS 
3CSCSCECSCECS6BCECECECECECECICECECSECECECS, 
6497 
1260 DATA C3SCSCFCFCFCFCFCFCFCFCF8E@COCACA90:05:03 
30346CCCCCCO348CCCCCC8903503030CUCBCCFCBCS, 
4607 
127Q DATA 3SCSC3C3C3C3C3CSC3D3F 6BCECSCECECSECECSCSE 
CSC3CEC3C3CSCSC3CSCECZCECSCSCSCSCECECECECS, 
6366 
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128Q DATA C3C7CFCFCFCFCFCFCFCFCFCFCFCFCF8EQ@CACOC 
OCO:0:0:0:03:03:0:03:030303@COCOCOCCFCFCBCSCS, 
4363 

1290 DATA 3C3C3C3CECSCSCECSDSF SF SF SF 6BCECECECSCE 
C3CSCSCSCECECECEC3CESCECECSCECSCEC3973F SF SF, 
9930 

1300 DATA C3C3CS3CSECSCSCSCECSCSCECFCFCFCFCFCF8ERC 
GCAOCOCOCOCOCACOCECACACEeCaCADCFCFCBESCSCSCS, 
5171 

1318 DATA 3C3C3C3CSCSCSCSCSDSF SF SF SF SF SF SFSFSFCS 
CSCSC3CSCSCSCECECSCSSF SF SF SF SF SF SF SFSF3F SF , 
3946 

1320 DATA C3CSCSCSC3CSC3CECSCSCSCECECECSCFCFCFCF 
CFCFCFCFOCOCOCACOCOCOCA4DCFCFCBCSCSC3CSCSCS, 
6529 

1330 DATA 3C3C3C3CSCSCSCSCSED3F SF SF SF SFSFSFSFSFSF 
SFSFCSCSCSCSESF EF SF SFSESF3FSFSFSF SF SF SF SFSEF , 
3022 

1540 DATA 3F3FS3F3FSFS3F6BCSC3CS3CECSCSCSCSCZCSCF CF 
CFCFCFCFCFCFCFCFCFCFCFCFCBCSCSC3C3CSC3CS33F , 
6964 

1350 DATA 3E3C3CS3CSCSCSCSCSF SF 3F3FSFSF3FSFSFSF3F 
SFSFSFSFSFSF3FSFSFS3FSFSFSFSFS3F3F3FSFSFSFSF , 
2498 

1360 DATA SF3F3F3FSF3F3FS3F3FS3F3FCSC3C3CSC3C3CSCSE 
CSCSCSCSCSCSC3CECS3C3CSC3CECECECECE973F3FSF, 
2708 

1370 DATA 3E3C3C3CSCSCSCSCSFSFSFSFSFSF3FSFSFS3FSF 
SFSFSFSFSFSFSFSFS3F3FS3FSF7ASFSFSFSFSFSFSFSE, 
2353 

1380 DATA 3F3F3F3F3F3F3F3F3F3F3F3F3F3FCSCSCECSCS 
CSCSCSCSCSCSCSCSCSCECECEC3973F3FSFSFSFSFSF, 
4984 

1590 DATA 3ES3SCSCSCSCSCSCSCSFSF3F3FSFSF3SF3F3SF3FSE 
SFSFSFSFSFSF3FSFSF3F3F3FE1FOSF3F3F3F3F7AF0, 
3075 

1400 DATA 3SF3FS3FSFSF3FS3F3SFSFSF3F3F3F3F3F3F3F6BCS 
C3CICSCSC3CECSCECSCESF SF EF SF SF SFSFSFSFSFSE , 
4016 

1410 DATA SFSC3C3C693CSCSDSF3F3F3FSFSFSFSFSF3FSF 
SFSFSFSFSFSFSF3FS3FS3F3FFOC3C3FO3F3F7AFO0F0FO, 
3753 

1420 DATA F@FOSFSFSF3FSFSF3FSFSFSF3FSF3FSFSFSFSF 
SFSFSF6BC3CSCSSF SF 3FS3FSFS3FS3FSFSFS3FS3FSFSFSF, 
3314 

143Q DATA 3F3C53C69C3965C3DS3FS3F3F3FS3SFSFSFSFS3FSF3SF 
7TASFSF3F3FSF3F3F3F7AFOC3CSCSC378F0FOFOFOFO, 
4535 

1440 DATA C578F@F@FOBSS3F3FBA4BSSFSF3F3F3FSF3FSFSF 
SFFOSFSFSFSFSFSFSFSFSF3FSFSFSFSFSFSF3FSFSE , 
5770 

145Q DATA 3F3E3CCSCS396S3CSFSFSF3FSFSF3FSFSFSFSFEF 
E1FOSFS3F3FS3FSF3FFOE1CSC3C3C3C378F0FO0FGF0FO, 
95144 

146@ DATA C396F@0FO0FOF@FO@F269BS3FSFSFSFSFSFSFSFSF 
7AC3BS3FS3FSF3FS3FSFS3FSFSFSFS3FSFSFSFSFSFSESF , 
4270 

147Q DATA 3FFOCSCSCSCSSCSFSFSFSFSFSFSFSFSFSFSF7A 
C3C3BS3F 7AFOB4FOC3C3CSECECSC3C5765C78F0F0FO, 
9789 

148Q DATA C3C378F0F@0F@FOB4C3578FOFO3FSFSFSFSFSFSF 
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B4CS3D25FSF3SFS3FS3FSFSFS3FSFSFSFSFS3FSFS3F3SFS3FSE , 
4605 

1490 DATA F@C3SCS3CSCSCS3D3SF SF S3F3FSFSF3FSF3F3F3F 69 
CSC396F0F053C69C3C3C3C3C3CSC3CSCSCR7678F0FO, 
9967 

1500 DATA C3C396F0F@F@FQ069C596F@0F0F0F0F@:3F3F 7AB4 
69C3CSFOBSSFSF3FSFSFSFSFSFSFSFSFSFSFS3FSF7A, 
9961 

1510 DATA CSCSCSCSCSCSSF SF SFSFSFSFSFSFSFSFSF 7469 
C3C3C378B4C3C3C3C3CZCSC3C3CSC3CECBC39678F0, 
6828 

1520 DATA C3C3C378F@FO0B4C3C53C378F0F0F@F@F OFF 2069 
CSCSCSCS:3C78FO0FOBS3FS3FSF7ASF3FS3FSFSFS3FSFEL, 
6453 

1530 DATA CSCSCSCSCS3C39683FS3FS3FSFSFSFSFS3FS3FFOB4CS 
CSCSCS59669C3CSC3C3CSCSCECECECEC7C3C3C39785C, 
6286 

1540 DATA CSC3C33CF@FOB4C3CSCE976FO0F@F OF OF @FQSCCS 
CSCSCSC3C39763CFO0FO0FOFOFA69S3D3FS3FS3FSFSFSFEL, 
6889 

1550 DATA CSCSCZCSCEC39835F3F3FSFSFSFS3FFOFOFOB4CS 
CSCSCSCSCBCSCSCSCSCSC3CECECEC3C7CECECECECS, 
6983 

1560 DATA C3SC3CSCESCFB67CSCSCSCSESC/78F0FO0FOBACSCE 
C3C3CS3C3CSC3CSECFOFOFOB4C396FG0FOSF3FFO7ACS, 
7268 

1570 DATA CSC3CSC3CSCSCSESD3FEF3F3FFOF OF OF OF 069705 
CSC3CSCSCBC3CSCEC3CECSCSCSECECECBCSCECECECS, 
7289 

1580 DATA C3SCZCSCSCSZCCSECSCECECECE59678F0B449C053C5 
CSCSCSECSCSCSCSCEECF OF AB4C3C378FO0FOBACSEICS, 
7455 

1590 DATA C3SC3CSCSECSCSCS983F3FFO@FOFOFO@F BF GECCSECS 
CSCSCSC3CBCSCECZCECSCECECECECECHCECSCECECS, 
7642 

1608 DATA CSCSCSCSCSEC7CSCSCECSCECSCE786EC47CECSECSE 
CSCSCSCSCSCSCSCECS3CFO069C3C39678F0867C3C3CS, 
7189 

1618 DATA C3C3C3CSCSCSCECS78FO0F@GF OF OF AECECCSCECS 
C3C3C3C3C7C3C3C3C3CSCSCECECECECHOCSCECECECE, 
7692 

1620 DATA CSCSCSCSCSEC7CZCSCECSCSCECECECEC7CECSECS 
C3CSCSC3CSC3CSC3C3967849C3C3C3596F069C3C3C3, 
7308 

163Q DATA C3C3C3CSCSC3CSCS9ESCFOFABA4SCCECECECECE 
CS3SC3CSCSC7/CSC3CSCECECECECECE8241C3CZCECECS, 
7377 

1848 DATA CSCSC3SCSCSCSCBCSCSCSECSCECSCSCEC7CECSCSE 
CSCSCSCSCSCSCSC3CSC 3760 EC ECSCECEECCECECECE, 
7632 

165Q DATA CSCSCSCSCSCSCSCSCBCS3C5C67C3CSCECECSCSE 
CSCSC3CSC7CECSECSCSCECSCECSCEOUBQCSCECECECSE, 
78062 

1660 DATA CSCSCSCSCSESCBCSCSCSCSCSCSCSCECSCBESCS 
CSCSCSCSCSCSCSCSCECSCBCSCSCECECSCECBESCECS, 
7832 

167@ DATA CSCSCSCSCSCSCSC7/7CSCSCSCSC7CSCSCSCSCSCSE 
CSCSC3C38241C3C3C3CSC3C3C3C3000BC3C3CECSECS, 
7223 

1680 DATA CSCSCSCSCECSC/CSCECSCSCECSCSCSCSC7CSCSE 
CSCSECSCSCSCSCSCSCSCSCBCSCSCSCSCSCSC7CSCSECS, 
7820 
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1690 DATA CSC3SC3CSCSCSC3C7CSCSC3CSCBCSCSCSCSECSCS 
CSCSC38200000C3C3C3C3C3C3C3582000041C3C3CEC5, 
6772 

1700 DATA CSCSCSCSCSCSC7CSCSCSCECECSCSCECSCSECBCS 
CSCSCSCSCSCSCSCSC3C7CSC3CECECECECECECBCS82, 
7759 

1710 DATA @B@41C3C3C3CSCSC7CSCSCECSCSCSECECSCSCSCSE 
C3C3C300000041C3C3C3C3C38200000041C3C3CSC5, 
95784 

1720 DATA CSC3CSCSCSCSC/CSCSCSCSCSCSECECECECECRBCSE 
CSCSCSCSCSCSCSCSCSCBCSC3C3CECECSCECEC 78200, 
7564 

1730 DATA BBQQCECSCSCSCECBCSCSCE8200C3CSCECECSCS 
CSC3C300000080C3C3C3C3C30000000BBEC3CSCECS, 
94035 

1740 DATA C3CSCSCSC3820041C3C3C3CSC3C3CECSO0GQCS 
CSCSCSCSCS3C3C341C3CBCS3C3C3CECEC3C3CEC 0000, 
6508 

1750 DATA @OGQ41C3C3C3CSCBCSC3C30GBQBO@CSCSCECSCSE 
C3C382000000080C3C3C3C3:C5:000000000041C3C3C5, 
4753 

1768 DATA C3C3C3C38200080041C3C3C3C3C3C3SC5000000 
CSCSCSC3C3C38200C3CBC3C3C3C3CSC3CSC35820000, 
5728 

177@ DATA UGOB@G@G41C3C3C341C35C38200000080C3C3CSCS 
C3C50000000080041C3C3C5:82000000000041C3C3C3, 
3835 

1780 DATA CSC3CSC: 0000000084 1CSCSCSCECE82000000 
41C3C3C5C3C350000418A41C3C3C3C3C3C3C3000000, 
4623 

1790 DATA BOG0QGGUG41C3:8200C5C5820000000841C3C3CS3 
C382000000000041C3C3C3:000008000080008841C3C5, 
29970 

18900 DATA CSCSC:00000000AG0GUG41CECSCECE:2000000Q 
DG41C3C3C3C30000410B080C3C3C3C3C3C3C 3000000, 
3705 

1810 DATA QO00GGGU41C300A08CECE:AGABBBBGGUBACECECS 
C58200000000000003C3:C5000000000000080041C3, 
2405 

1820 DATA CS5C300000000GBGBDGUAAACECECECEV2000800 
BGGOC3CE:C:82000041000V00BC3C3C3C3C387000000, 
3055 

1850 DATA QOO00GGU0AAC:000041C5:00000000000041C3C5 
C30000000000000000C:82000000000000000800C:3, 
1625 

184Q DATA CS38200000000000000008aC:C3C3:0000000000 
BOGGUGC:C3820000000000B008aC3C3C38200000000, 
2145 

1850 DATA VO00000G0008200004 1820002000000000004 103 
620000000000000000418200000000000000880RC; , 
1105 

1860 DATA C300000B0GA00GBAAOPUGUU41C3820000000080 
0000004 1C500000G00000G00GVGG41C3C:0000000000, 
13500 

1870 DATA Q000P0DA00AD0A0GVOE2000000000000800QCS 
82000000000000000041000000000000000088004 1, 
985 

1880 DATA 820000000000000000000000C:000000020000 
0000800008 2000000000000000888C:C:0000000000, 
845 

1890 DATA Q000000G00000G0000082000200020880082@C 3 
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DO0GGGGG0A000VGG0G041V0000000000000222200041, 
455 

1900 DATA 8200000000000000000000004 100002020020 00 
0000000082000000000000000000C5:820000000200, 
6850 

1910 DATA GO000000GG0G0GGAPOBGBOBOBOAVPAAAAAGAAA A 1 
DAVOGAVOGVGVGVVOGAPAAVDOAVOGAOVCUVOVAVAGAGAGA 1, 
130 

1920 DATA G0G0GBBGGABPGGVBAQVOUUUUVA4 1002002200 AUGA 
00000220 VGOOVALAVAVGGAGUGGGA18200000000008, 
260 

19350 DATA OO0G0DAAGDOGGGUGAGGABBVBOABAAGAGGALAA A4 1 
0000000 GVVVVAGAAAAGGGGVVVVOVVVVGUAOBOG , 
85 

1940 DATA GUB0OOBOAQAAAAGGAAAAAGGGOVOGVAVGOGVOGGUQ 
000000000000 G0VVOBGGUGAG0041022000000200 , 
65 

1950 DATA OGD0GGOPO0APGAABAOVAVOGALUUACUPAGLOAVAG 
DOUV0GVV0VVOGVGUGUAVVGGAVAPOVOVAGVVVVUOGAGE0 , 
(r) 

1960 DATA GUAGADOABPOGUVAODOUAAAOUOOGGUUAGUGUGAUCA 
DOGGO0GG0GV0000GGAACVUUV0200041000000002000 , 
65 

1970 DATA fin 

1980 DATA GU0UGGDDAO0OGOAACOLUAAAACOUUGANLOGUZACO 
G0UG022GGBBGGVOOUVAVBCGAVAULUGCUUUUUUAUCAUC, 
@ 

1990 DATA GUGGGAAAOBPOGUAAAGOGGAAACOCCUTAUAOGA22CG 
QUGUVAGVUCAAVGOAVABAAAVAAAAGOGVVVVAABGALEQ, 
@ 

2000 DATA GDGD0000GUAAG0GGAAABASEUANAACACUCALACCAR 
DUOUOUVGGVOVOVOVVVPOGUGAAAVGGGOLLACCCUECUGO0, 
15 

2010 DATA UVADQAOGDOGOGAOOGUAAGOBBCUAAATALAGU2GUA 
0000 AVLOVCOVOGAUVVOUGGVABOVOGGUAACVGGVVOUG , 
@ 

2020 DATA GOG0D000G0GA00GBUAAUOVEFr AFF AA0OGUACCGEA 
000000000000 GOAVOUVOGVPPVGUULALGVGAL2C00, 
30 

2050 DATA GDO00O0G0G0G0GAG0OU0ABAOUOUUGVACCUUGACCBAA 
DUVVOUVOVVVOAVGOUGVOGAVOGVVGAAOAAVGAVOVVGGGGE, 
Q 

204@ DATA GD0G0G0000000000G00GGGGAGSOF Gr 2CGPCUAGAC 
000000000000 0G0VGPOGPBGVOGGGVAAGAAVAGAGGVAG, 
35 

2050 DATA VOG00000GGGA0COUAAGACOVOUGAUAVCGALaBu0 
0000000000000000000000GGG0GVVOVOVL2A000000, 
(r) 

2060 DATA GA0GD0G000GGGA0GG0VAAGG0CSOF 1B: 50002000 G 
DOO00G0UGAAVVVOVGGGAGGVOGOGPVVVVVGOVVOVVGGGAGOG , 
98 

207@ DATA G0000000000000G00000000OUAOUAAUVGUGGLE 
00000000000000000000000000000000000G000000 , 
@ 

2080 DATA GD000GG0G0000VPGAOUAOUGUS1B53:5:5000G200Q 
000000000000 0000020B0AGVACVVOVGUGGV0GVUGV0006 , 
134 

20970 DATA 090000000000 000000000000000020000UñGAC 
DUAVGGDOGAVOUVAGAVCOGOOGOVGV0V0G0GVGVVGVGOR, 
() 

2100 DATA GAD0GUGOU00G0A0UVGUVG0UAGB1B3:3:5522002000 
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000000 GG0000V0UG0VPAGGVOGVOGVAG2000VVVG000006 , 
1635 

2110 DATA G00G0AAAGGGGAVOGGGAGGCOGVOGGAGACCCGAA2CC 
DO00000GP00OGGG2P0GGCV000GG0G200000V0V222000 , 
Cr 

2120 DATA OUG000GGGPOGGAPOGGUAGUU00G1B33:3353002AVO 
D000000FDFO0G0GV00GAGV00V0000000000V00V22000 , 
210 

2130 DATA DQOG0QGGGG0G0GGGGOAGGOOCOAGAGA22VCVGGC2CG 
000000000000 GGOGGGAVGVOVOGAL20GGGB0GGGGE, 
[4] 

2140 DATA GGQADDOGOGUAGOOGUAADOBOGG 1 1:333:3200000Q 
00000FO0F0FGAGA2DOO0GO0200V0V0GG002000V000000000 , 
225 

2150 DATA GUDPO0BDGGAOBPOGOGUAGAACOVGACGA20GVCAGVGQ 
D00000200000000000000200000000000000002000 , 
Q 

2160 DATA GUGGQQABOOGAAGGGAAAGPOGUGGEE:E::::00GA0C 
D011:55::0F0F0020000000000002000000G0200000 , 
302 

2170 DATA GGDDG0AGGDGDGUAOGAOGACOGAGGAGGVCGACG2GAQ 
000000000000 0000000000V0V022000GG20V0V0EVEGE, 
a 

2180 DATA GO2DD0AGGB0GBGAOGABGAGGAGSGF2AGG11:3:220000 
00555::3:3270F0A0200000000000000000000000000, 
349 

21970 DATA OGO0UGVAADOGUAAOGUGGAAABOLCOUGGAAACCGAACAQG 
DOUVOAOAVOGODOBLOCUVOALOVOVGA00GVGV2OGAGUAO, 
a 

2200 DATA DOQUQGQGBPOGAGGGGAASEF EF OF 1B005:220000 
1135333333270A00000000000000000000000G0UGO, 

2210 DATA 000000000002 000GAGUGPOGA0GAACU2CGLGAC 
DOG0UVLO0OVOPAVOCUALVVCVAVGL0V0VCOCGG2V0020 , 
O@ 

2220 DATA UOGUAAPBDUGUGBGGGAGQAF OF 1B5555:225533:0000 
335535353327 040000000000000000000002000000, 
399 

2230 DATA BOUDOGOGBBUPOAPGAOGAVAUAVOGVLAGLOG2OGGUGA 
D0000GO00A0AGVCOGVAGVGAAVOVOGGVGVGGV20VC2VAG00O, 
(r) 

2240 DATA GUGG0OO0DBOGOOOOAGBOBOEF 3353553353 2200112211 
333333533535: 350F00000000VV0O0G0G0VVGVVVV2GVVOOO, 
642 

2250 DATA DO0000GAGGAGAPAGAAUAAAGGAGVCGCCOCACCCCCCC 
D000GGGUV00V0O0GO0GOVOVP20PV0GGGVVVVVVVVGVAVOO , 
(.] 

2260 DATA DOGG0GGBGPOGGGBGBGGSOF 3333333353533002255 
33332200115:30F00000000000000200000000V0U06, 
630 

227@ DATA GO0GBAGAAAAGAAAAAQAGAAAGVGOVGOVALAGAGGGA 
DOU0V0200G0GOGOVCOGGVGVCOVVCVOCLG2G2002000000, 
Q@ 

2280 DATA Q00Q0G00Q000G00PA2Q0G51B33225353333332222 
3500000000 110F0000000000002000000000V0GVVVBE 
923 

22970 DATA OO0BOGAGADAGAGAGAAAAAGGGGGVAVOLACAGAaARA 
DOGVGOVUUDOAGAAVPAGAVDAGBBAGVVVAGUVAG2VG000 , 
(r] 

23500 DATA GOG0GGDOGOGGGAAGQQS1BADQU11335353:220033 
22110F0A00000F0000000000000002202000000000, 
378 


33 
, 
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2310 DATA GOG0OBDQUDAUOGVCADAAVAACAPAUVPAUAAVVALGAQ 
DOGGVOGBAGGOVAVVLOVOGAOVOAGVGVACVABAAGCAAAG, 
@ 

232@ DATA OOGGGG00B0BAUQGVPAGSACQUAQGVAUAEE:E:3331127 
0805::32700000F 00000000 G0GGAGOGA2A2EUGBE, 
385 

2330 DATA QGDOOGUAADAPAAAAAOUAAAQAGOAAGVVOVARAGE 
DOGPOGGGAGAGVABAGLCAA2ABABCACAGAABAGALAGGUE , 
@ 

2340 DATA GOGGOUODGPARNQVOUQASAGBGAASEF 220011351177 
3333330F0F 0005000 GOPA2OCAGABGALAAGABAUGE , 
5664 

2350 DATA DOBUGDOGDAGOQAAAAAABAAAABAAACACVGACAGAR 
DOGOVGUOAGGBGGACOGAABGAGAATOBABGGAGAAGUGE , 
@ 

360 DATA QUAD QUAGUGGAAQAUGSAUASAF 13333001 10000 

11550F0A0O0VODSVGGVOBGVVGPGAGVGUGVOGAAGAUG, 
269 

237Q DATA GOGDOGNAUDAUAGBOAAAAADAPAGVAAVCUUAACGAA 
AOGPGUGGGOZOCALGBAAAAGGAGAGVAAVAVC2AGAGAAE , 
@ 

23980 DATA QUO GOGGBAQOADAQQAQAUS1B3553333300 1133 
DOGODGGOGVBGGSCVGOPVAAAGGCALAGAGPCCCUA2CAG, 
309 

2370 DATA GONDOAAUBOAAAPOOABAGAAAUVDAAUGNCAAA2GUCA 
DO00VVGUVGVOTCGAGABGUCANLCPCTUGLATCUTA2G220, 
@ 

2400 DATA O0AG0QBGUBADAUGGAQQUGOF:3:55535335522700:: 
22333300000000000000000000000000G00AU22GA0, 
491 

2410 DATA DOO0UUODOPAGAAAOVOVUOPAUUOCAGUVACCAAACC 
DOUDOGGOUGOUTOALOBAACAABAUGAAGCUACABCGAUGE , 
Q 

2420 DATA GOGGGDAGOAAAUGUGUUDS1B3:355:72700000077 11 
2211330F0000000000G00000A00V0AGGOLALUGACGLES, 
33 

2430 DATA OD0GGGGGDODOOGOAGVUOGVAAG2AUUUUUGUGCGGAQ 
DO000V0GV02DAGCGOGCOVCGCVCOBAVALAL0VU GG CAUE, 
@ 

2440 DATA BG0000DGDOVOUGUGUGOF 1B220000000000::00 
3300355:270F000000000000000202GGU0VOVAVOUUON, 
283 

2450 DATA QDD00GGBBBDBOOOAADAAAAAGVOGVUUVAGAGA2AGA 
000000000000000GB0GGV0V00VAGAA2GOVVVCOUVVUUAG, 
(:) 

2460 DATA VOGGBAGGNBAGVGUAQAGOFDAGAAAQAQAGBG2AE322 
352235352270F0A000000000000GV0AUVOGAGGCCGAA0 , 
405 

247@ DATA GO0G000GGG0QAGUVAGAAUAAACOUGVCACAAAGACGA 
QVGOUDAGOODAGGGGOVGVGGAAGAVAVAGAGAVAGOGCGAGGC, 
@ 

2480 DATA DO000B00GGAAGGGUUGAABGAGAGUGAGBAAGG 15511122 
1122115:3270F000000000000000000000000000000, 
33 

249Q DATA BO0BDOGOGPOOGOAUATPAVAAOGAVAUVAUGCAUCAAG 
D00UAOU00GTAOGCGOCAGAGLCAVOLOCGVAGGA2GA2ACGAC, 
@ 

29300 DATA 00000000 GBAQAATAAGAUAGAUGVOGGG15FB1127 
1122113:0F00000000000000000000000008220080, 
472 
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2510 DATA GGUGUBGAGUUUGAABOGAAACOPOVAUGGAACCVAAAC 
DO0000000200000000000002000000220000000800, 
a 

2520 DATA 000000 APOG0GAGCOQGAUVABGAAAUGGGOF B 1127 
112700050000000000000000000000000020000000, 
378 

2530 DATA OO00GGUGQG0GUUACDOGUAGAACVOCUUGUG20CaGG 
DOGO0GGAU2O0AGGUVACGGAVVAVOGGOGGG0V0000000, 
[ri] 

2540 DATA OU0OGGGAA0OUUUAGOGGUAGGAAGGGGGG2A0PGGEZ7 
002700000000000000000000000090000000008000, 
120 

2550 DATA 0000000 A000U0AA0OUAAACOU0VCCA02A202GAA 
DO0G0GG0OAV0GAGCUGAVGABOGOVO2OVGVVOGAVAGG20GA0G , 
@ 

2560 DATA 000002000000 GO0GUA22GGG0GGGG7FA20055 
DAZ70ADDO0O0VOTO20VGGVGG000VGVVGAAVOGGCGU00 , 
399 

2570 DATA OGO0000UUGU0O0AUPAGOGUGUAAAAGCOVUUA2200GG 
020000000200 00000000G0G0P0GOUUG020000002200, 
[] 

2580 DATA OD000D0G000000000G0GAAG0GG00 1555200535 
GAS: GAGOOUAGUVOGVVGVVGP00VVGG20G00GG0GVG200G, 
3970 

25970 DATA 000000000000 00U0GA2A00C0GGGVA2CCaGAAQ 
GU2GGG00GAGGPPGGOGALGALVCAUCGOBVCOLOGGCCG200, 
a 

2608 DATA UO000GGAO0UGGUDOU0OGGBUVA0UA015FF20005:S 
BAS =0F 00000000 G0GV20V000GG00000002000000, 
485 

2610 DATA GOG0GA000NDADAUAUAAAAZGBOCOCATAALA2LAaCa 
20AGGU00000G020GU0AOGVGVVOVVOGG20G0080000000, 
a 

2620 DATA VO0UU00G000BUA0A0POVGAA2C0B00GUAGS 1000011 
BDAZZ:27000000000000000000000000000008002000 , 
198 

2630 DATA VOUUGBDAAPOGGPAAOOGUAAACACCOUUAA22000a0020 
2GG0000G0U00G20000020000GVVOS 1B5000000000000, 
262 

2648 DATA G0000GG000000A00000A002G00007F 220000 11 
BAS5:27000000000000000000000000000000000000, 
244 

2650 DATA BUBOOUOAAAAVAGAAAAAAAGGCGVVVO002022200 
000000000000 000G00G00GGGGOF :782A0000000000 , 
405 

2668 DATA OOG0UGG0GGAPGBGAGOBOGGAAGG2GVE7FFB22000S 
DA53270000000000000000000220000000000000000, 
483 

2670 DATA UOOGDODAGOAAAAAVGVAGGGCVLVOVGLA2G2GG22A 
000000000000 008000000000051F33:CF200000000008, 
624 

2680 DATA DOGO0ARGAUGUAAAAAAAGGUGVAUE152AF 5000005 
00110F000000000000000000020000000054A80000, 
9395 

26970 DATA GOGG00O0GGGGBAGUGOVAGVOAGVACGVCAGGCCCGA 
GOG00G00GG000G00000GG0GES1B63C7800000000008, 
443 

2708 DATA VOGUD0OBOGBAUUAAVABAAVOGVOU15S5SFE:00000S 
GG0S0F2000000G0GGPAPAGOPGGVOGGVCGGUUFC2200, 
628 
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2710 DATA S4FCOU0GDOG0AUU0AAODTAAOVAAVAUUALVCAGAG 
DOGUOBOGVABBGGAAGQUVBGGOEF BE 3C78AGAGGABDAG, 
1101 

2720 DATA GOUQUGDGAGPANAUAPQUAAQGGAG1SFFAZOAAQCS 
DOBGTAGGUGGUGGUOBOPGAVAUVAVAGABAGVAAGSAAV0ZA , 
33 

2730 DATA FCASGOGGOAG0AAOAAGAOAAAATOAUCACAGAGLAQ 
DOGGOGGGOABOQGOUSSFFAFFFFFFFFFEFFFFEFFFFFAA, 
3400 : 

274 DATA DOGDODDBAGDAPUAGQNAQUAAAVAUGSSAZ 220 
DOOOUAGGOGOPAGUGGGOUABAGGGGGAGGUF CAB127010, 
741 

2750 DATA 740000000000000000000G0AD0ABGVCAGUGAGGQ 
DUGODGGGGGGGGGBOFFFFFFAFFFSFFFFFFFSFFFSFAA, 
2786 

2768 DATA GOGGDBDGVOPAUAUQPOCOBQUAGA7F LG AAAUGAQ 
DGVVBAGAGGGGVABGGUVGGUVPOGVUVPAGS4FCEV0107030, 
617 

2770 DATA 200000000000 000AG0GOGAACOGALACAVAUACEG 
DOGGBDG0GAGGGGASSOFFFSFFFFFFFAFSFFFSEFFFFAA, 
25347 

2780 DATA DOUGDOQGBDUDATOGAUAUCGUGVG7FFBAZAUGAAQ 
DOGAGPOGGAGGGAUVOUABGGVVGGVVASABS=:C027030, 
956 

2790 DATA G0GDODOOGOBAGVAUAOAOUAUANACAAALAUAACE 
DGVGGOGOGBGGGGUFFFFFFFFFFSFFFAFFFFFFFFEFFFAA, 


TONOAS 
Jets) 


2800 DATA AOOAUONPOUPOAAGAAGUAAUAU152A5 1120000008 
GOCOGATDAAOVATOAOUPBBAAGVAGGVCSA400E0E0 10208, 
SE 

2810 DATA GUGOPOUUPDUODAPOAC AUTO AACCCOLAZAGE 
GOGGGAGUBGGGSOSAFFFFFFFFFFEAFFFFFFFFFAFFFOA, 
3095 

2820 DATA GOGGADUAAUAAQAOQUAGUAUAG155SFBA2AAAAGG 
DATA AGPPGAAVAQADAAUAVAGVAAABVA 10300010, 
767 

2830 DATA 74A8000000000000000000UGCGUUTUATAC GA 
GUGDAGGVAGASOF AAGAGGBOGOFFAFFFFFAFFFSFFFAA, 
2364 

2840 DATA GOU2G0OUOUAAQUPUVAUGABAG15FFF BAG2AUAGA 
DOVOZADAADOAVDAADAATAAVBAGBVAUGOF CAGSA 2030 , 
907 

2850 DATA 30FCO0AUOUOOOGCTACUAPOCAC UC UV CAC 
GOGAGGBGBGUSA7AACCOSAGGBFFFFFFFFFFFFFFFFAA, 
3073 

2868 DATA BODAAOGODUAQAAOAAAAQUGAUSSF 320UAGGAG 
DAVOTATDAOATOAADAADAAGUAAQGOUF CEE T02202OO , 
812 

2870 DATA 3020ABOUADGOQUOGUAAAACQUACUAAAAQUAGAAR 
GUAOGAGGAGGSA7AACDESCBOZFFFFFFSFFFFFFFAFOA, 
2957 

2880 DATA GODGODOAOAOUAOUAOAAQUUG 1 SAAF 302 GUAGA 
DACDAAGAABOATOGAVPADAAOGAVUAAVAABE30E02030, 
794 

2890 DATA GU3ZABDUOUAADAAQAQUAUAAAQAACACUGAZAAR 
O0GGGAGQAGGS2DAAC1CECBOSFFSFAFFFFFAFFF@F OA, 
253 

2900 DATA UAUUDOUUOGNAUAAUUAQUUQQG 15550020 TAGAG 
DAAOGAGOAATAADOTOOAOAACOAAGBAAGAAVEVZAGGEO , 


250 


ACCÈS DIRECT MÉMOIRE ÉCRAN | 145 


2918 DATA 2010A8000O00OUUAAPURQAACAUAAUGCCLOCAAG 
DGGAGAGAGGGSZ2DAAC1CEC7@BAFFFFFFFSFFF@9D70A, 
2566 

2920 DATA DAAGQUDODAUGANUPAVAQGVAAZF ESF 30002 VUQ 
DDAGACOUCOBOAAOAACAACAAAPOAAAAAOVGAGOG 1 400 , 
411 

2950 DATA 7400AB0000GU00OOAAPOUQC CAC CUCACCCUAR 
GOPOAUGAGAASASAACOC48908FFFFSFFFFFAE470FAA, 
2707 

2940 DATA UOADGQOUANAUOUUAAPAGGGGUZAFFS 10000200 
QAUVAVABTACAATOPOAATAOAAAAOAAAOAGAAOSA?8 , 
498 

2750 DATA 7400AB00000002OADAOOOOPAANCUCOLCVUVAR 
DAGAGAGOUGGSASAAGGAGAQOGFFEBSFAFFF29475F AA, 
1984 

2768 DATA DABGOQAANAAABUAAPAGAGGUUEFFFFEQ0020UAG 
OAVAOPGATOTAOCOAOACOAAOAVAAGAAABGBBAGSE 1 4 , 
&éi 

2970 DATA 10AS50020DDDA0OAPOOUTOCAAUUAAVALCUCUQU 
QAGAUGBAGAUS2FAFSFFFFFFFFFCBQOFFFAEG98FSF AA, 
2590 

2980 DATA GDOG0ONPAGAUAQUAAACUOCCAUASSAZACAVOCAG 
DATCUCTOVOVANAUAZO 1410000002 ATATAVIBGOGEA , 
447 

2790 DATA 10ABGQUDOUGOOVAUAAQACUAAOUCUAACCAUCUAR 
DOAGOGGAAGGSZFFFFFFFFFFFEFCF870F@902DFOFAA, 
252 

3002 DATA OUOGA2AGAUVBUAUAAAAGUAAQ7FCUATQAVVVACE 
COUPOPOAGAOUOADAAAUC EAAACAAVAACGUVVAQEF 6, 
sgi 

3018 DATA GPASGUAPADAUUATANATAOUAAAUAACAGQGUCACA 
GOOAAGUVGGAS27FFAFFFFFFFCFCS860CO0303CFAF OA, 
2553 

3020 DATA GUADOGUPUPAOAAOAUAAGAU1S2ANAAUVAGCOVAUQ 
DOVAGOGAGOVACAAAAG?2C2H00002ATAGOLACAGVAGAC , 
317 

30: DATA 2BABG00AAAGUUOAAAAAGQACOUCAVAUGCUVAGG 
GGUVAGGBVAGS27FFFFAFSFEACOB40C070347CB870A, 
2033 

2040 DATA DADAGOGAPAQVABAAAAAQGVISSSFBA2Q0UUAUGQ 
2OVOAAOOAAOAGANQN 1 428020000000 02GVVGVGEA , 
759 

3050 DATA 28A8000000Q000CUBCGABU UGC AAACCUCUGQQ 
VOBGGOUGGGVS25SAFSFFFSFCOS40C070303CFCBS7 AA, 
2256 

306 DATA BOGOUAAQUQANUPOAGAGAAU1S5SSAAA?22BGGOGOQ" 
GOVAUOUVABAAAAUCOAPAABATOADOAAGGAAGVBGGOF @ , 
846 

3070 DATA 28000000000004CCCOCOUAQCOUAGGGUAAACGGA 
GOUOBQGGGVASZSAFFFFFFFCOCAQCOCOPGE03CF SF OA, 
2397 

3080 DATA BOUODAAGUAQUAAVOAVAUAV1S7FAAAZ22UVOGAGGQ 
DOCOAGOVOGAOAOCDVAAGABAAGAAGAGABOPOVVGBGSO , 
726 

3090 DATA GOUDOANODPOUGAACCACEBADOUAOCUGAAAAUCCC 
GGUGGAOUGBASADFFE837FFEACOCOB40CUS030=0F AA, 
2487 

3102 DATA UGGOAPGAGDOAAAUAOQAAGUUUUFFS 112000002000 
DUVGAQAGOAVATOBGOUGO2 05402000 OADGATAVAGZO , 
614 
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3110 DATA 3CDG0GD0GB0G44CCCCCE000000000R0GA0GEG 
GGADGAGOGGGSADFFBS37AFFFFAASOFFOOGFSAASOF AA, 
29035 

3120 DATA GU0O000G00000U0GG00AAGG0155S5FB000G000AGE 
000000000000 00G0AG2020A80000800000080836850, 
867 

3150 DATA B40000000GAGBCACCCCCCOSUUGCOUUAUGaGCR 
0000000000 SODFFBSS7FFFFB6785B7/7S8ASSCFGAF AA, 
3277 

3140 DATA G0000000000G00200200000815AAFE20A00GGA2G 
000000000000 0G00GBS002020540000082000080050, 
854 

3150 DATA ADOGGODGOOGA4UNCOCFBESCCCOUUQGU0C0ETA2000 
0000000 GO000SSSFFBS37FFFFB678S5B3CASB6780F AA, 
3312 

5160 DATA QUO GGA00UDOUAQUGOGGVOU7rFFOGAZVGCGAGGE 
20000820000000540020:00000000020820080008050, 
788 

5170 DATA 142800000004QC1DFFF2CCC880000000900800 
OCOGOUAO0GGGSSSFFBSS7FFSFBE/78SBSCASBE/7SOF AA, 

3180 DATA 000000000000000000801S52AAAAZF:CO202000 
DA0DGGA00ACOUAASGO20:000002000000000000880, 
886 

3190 DATA FO2800D0000CAC3F 7FF544CCCO0GG08A0GE2GA0 
2008000000050FAFBS37SFFFF5785BB6ASB6EFOSF AA, 
3481 

3200 DATA G00G0000G0UO0GBGUGOGUAGFFESFFS1F500000000 
DGV0GGOG0GAOGGVO00A0180:00000000000000000G0S50, 
19063 

3210 DATA FO3CD000040C1D5F3FFBA2CCC88200008082080 
O0000000000505FFB837FFFFFBA7GFF20FSBASSF AA, 
3641 

35220 DATA SFSFSFSFSF3FSF3F3F7FFFSSFFAAFSFSSFSFSE 
SFSFSFSFSFSFSFSFSFSASSSFSFSFSFSESFSFSFSFSEF , 
3442 

5250 DATA SF3F3F3FSFSFSFS3F7FFBB7SF3F3FSFSFSF3ES 
SFSFSFSFSFSFSFSFSFSESFSFSFSFSFSFSFSFSFSFZA, 
2871 

3240 DATA SF3FSFSFSF3FS3FSF3FFFFF7FBFSF7BF3B73FSF 
SEFSFSFSFSFSFSFSFSFSFSFSFSFSESFSFSFSFSFSESF , 
3458 

32950 DATA SFSFSF3FSFSFSFSFSFFFSFSFSFSFSFSFSFSESF 
SFSFSFSFSFSFSFSFSFSFSFSFSFSFSFS3F3FSFSFSF2A, 
2691 

3260 DATA 3FSFS3FSF3SFSFSFSFSFSFSFSFSFSFSFSFSFSESF 
SFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSF EF , 
252 

5270 DATA SFSFSFSFSFSFSFSFSFSFSFSFSFS3FSFSFSFSFSF 
SFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFSFZA, 
2499 

3280 DATA SF3F2FSFSFSFSFSFSFS3FSFSFSFSFSFSFSFSFSF 
SFSFSFSFSFSFSESFSFSFSESFSFSESESF SF SFSFSFSEF , 
232 


35290 DATA fin 
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Nous allons prendre un exemple simple. L'objet et ses différentes phases 
d'animation, ainsi que les couleurs associées, sont résumés sur le schéma 
4.2. 


— 


. 7 
de 0) 
pr” 


—_ 
A 
Z / 





STYLOS 
[St ZZ 3 
EH: (rl4 


Schéma 4.2 Les six phases d'animation 
2 = 5 d'un module extraterrestre. 





7 
22 
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ROUTINE DE RESTITUTION 


La première routine, que nous allons réaliser, sera celle restituant un 
dessin déjà codé en mémoire (schéma 4.3). 


ECRAN 








ÉLLÉILÉTTÉTD our 





1e 27e 3re dre 
ligne ligne ligne ligne 
Schéma 4.3 Restitution d'objet. 


Comme nous l'avons vu précédemment, elle nécessite quelques don- 
nées en entrée. Il lui faut connaître l'adresse de localisation du dessin en 
mémoire, ainsi que sa largeur en octets et sa hauteur en lignes. Il lui faut 
également l'adresse de l'écran où l’on souhaite dessiner l'objet. Ces 
renseignements seront fournis dans les variables système respectives, 
BUF, LAR, HAU et ECRAN. Nous avons utilisé, à cet effet, une zone laissée 
libre par l'ensemble des routines du livre. Ce sont notamment les mêmes 
variables que pour les routines suivantes. Le listing assembleur assigne 
donc un label à chacune de ces variables grâce à la directive EOU {voir 
annexe 5). 


Notre utilisation des registres va être la suivante : DE va pointer sur 
l'écran (c'est la destination), HL sur le dessin (c'est l'origine), B sera le 
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compteur de lignes. Le travail principal est effectué par une instruction 
LDIR, qui copie LAR octets du buffer dans l'écran. La routine système 
#+BC26 est utilisée pour descendre d'une ligne sur celui-ci. 


La seule difficulté est liée au fonctionnement de cette dernière routine : 
elle travaille sur HL, alors que nous avons utilisé DE pour stocker l'adresse 
écran. On s’en sort grâce à l'instruction EX DE,HL qui échange les contenus 
des registres DE et HL. Puis on appelle #BC26, et on refait un EX DE,HL afin 
de replacer le pointeur buffer dans HL, et celui d'écran dans DE. Le 
programme 4.1 résume tout ceci. 


18 ; 

26 ;progranme de copie d'objet 
30 :RAM-;Ecran 

48 programe 4.1 


8 ; 
4708 60 ORG #4700 
70 ; 
88 :ENTREE: (ECRAN) adresse du coin sup.gauche 
98 ; (BUF) adresse de l'image 
108 : (LAR) nombre d'octets par ligne 
110 ; (HAU) nombre de lignes 
128 ; 
459€ 139 BUF:  EGU #459C 
458 148 ECRAN: EGU #45A0 
ASAG 158 LAR:  EQU #45A6 
4547 168 HAU:  EQU #45A7 
178 ; 
4700 EDS5BAU4S 190 LD DE,(ECRAN) 
4704 2A9C45 198 LD HL,(BUF) 
4707 SAA74S 200 LD À, (HAU) 
470À 47 218 LD BA ;compteur de lignes 
220 ; 
470B C5 239 NEULIN: PUSH EC Sauvegarde compteur 
47QC D5 240 PUSH DE Sauvegarde adresse ligne 
470D 3AAGAS 250 LD A,(LAR) 
4710 4F 268 LD C,A 
4711 0600 278 LD BB, 3BC=nombre d'actets 
4713 EDEU 288 LDIR stransfert image 
715 EB 290 EX DE,HL sauvegarde pointeur buffer 
4718 El 300 POP HL ancien debut ligne 
717 CD26BC 3108 CALL #BC26 ‘descend d'une ligne 
47TiA EB 32 EX DE,HL 
47iB Ci 338 POP EC 
471C 1@ED 340 DJNZ NEWLIN ligne suivante 
47iE C9 350 RET 


Pass 2 errors: O8 
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ROUTINE DE MÉMORISATION 


La seconde routine, qui effectue le travail inverse, est tout aussi simple. 
Le registre DE est utilisé pour pointer en mémoire (c'est la destination, qui 
va recevoir le codage du dessin) et HL sur l'écran. De cette façon, le travail 
est encore une fois effectué grâce à LDIR. Mais #BC26 travaille ici 
directement sur HL et nous n'avons pas besoin d'échanger celui-ci avec DE. 
La routine est présentée dans le programme 4.2 


4730 


459C 
4540 
456 
ASA7 


4730 
4734 
4737 
473A 


473B 
473€ 
473D 
4748 
4741 
4743 
4745 
4746 
4749 
474 
474C 
4750 


EDSB9C45 
2AAG4S 
SAA74S 
47 


cs 
ES 
3AAGAS 
4F 

ao 
EDBO 

El 
CD26BC 
ci 

10EF 
EDS39C45 
c9 


18 ; 

20 ;progranne de copie d'objet 
30 ;Ecran->RAM 

40 ;programne 4.2 


98 ; 

6 ORG #4750 

78 ; 

80 ;ENTREE: (ECRAN) adresse du coin sup.gauche 
90 ; (BUF) adresse du buffer 

108 : (LAR) nombre d'octets par ligne 
118 ; (HAU) nombre de lignes 

128 ; 


139 BUF: EQU #459C 
148 ECRAN: EQU #4548 
150 LAR: EQU #45Âb 
168 HAU: EQU #45A7 


170 ; 

190 LD DE,(BUF) 

198 LD HL,(ECRAN) 

209 LD A, (HAU) snombre de lignes 

210 LD B,A jutilise come compteur 
228 ; 

230 NEMLIN: PUSH BC ;sauve compteur 

248 PUSH HL ;sauve add.debut ligne 
250 LD A,(LAR) snombre d'octets/ligne 
268 LD C,A 

270 LD B,8 stransmis a BC pour LDIR 
280 LDIR stranstert 

290 POP HL srecupere debut ligne 
300 CALL #BC26 sdescend d'une ligne 
310 POP BC 

320 DJNZ NEWLIN ysuite dessin 

339 LD  (BUF),DE ;Raj variable buffer 
340 RET 


Pass 2 errors: 00 
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Maintenant, il faut mettre les routines en application. Pour cela, nous 
allons utiliser les graphismes définis plus haut, représentant un petit 
vaisseau extraterrestre multicolore équipé d'un rayon oscillatoire. Nous 
‘avons défini les six phases du dessin. Le mouvement de l'objet est ici très 
simple, mais le principe des phases d'animation peut bien entendu être 
appliqué à des mouvements beaucoup plus complexes comme le déplace- 
ment d'un personnage. Il faut alors dessiner les différentes phases du 
mouvement, ÿ compris les intervalles entre chaque position clef du 
mouvement. Chaque phase est codée en mémoire. Pour la restitution du 
mouvement, il suffit d'envoyer successivement à l'écran chaque phase. 


Le programme 4.3 réalise le codage en mémoire des six phases de 
mouvement de notre petit module. La routine 4.2 est mise en place en 
mémoire. Puis, chaque phase est dessinée sur l'écran et codée par un appel 
de cette routine. 


1Q HIER IEEE DE JE IE EEE EE 

29 ‘** Programme 4.3 *# 

SO HAINE DEEE NE DEEE EE 

40 

98 ‘dessin d'un objet en plusieurs phases 

69 ‘et codage de cet objet en memoire 

70 ‘aux adresses $2fff et suite. 

80 ‘application de la routine 4.2 

90 

100 MEMORY &2FFF 

11Q DEFINT a-z 

129 ad=&47308:1ign=208 

136 ctrl=@:READ c#:1F c$#="fin" THEN 240 

140 FOR i=1 TO LEN(c#) STEP 2 

150 c=VAL("&R"+MIDH(c#,1,2)) 

160 POKE ad,c:ad=ad+ti:ctrl=ctrl+c 

17Q NEXT:READ teste:1F teste<>ctrl THEN PRINT"Er 
reur DATA ligne"lign:END 

180 lign=lign+1@:GO0OTO 130 

190 

208 DATA ED5B9C452AA0453AA74547CS5ES3AA6A4S, 1908 

218 DATA 4FG@6GBGEDBOE1CD26BCC110EFEDS539CA45, 2147 

22@ DATA C9, 201 

23Q DATA "fin" 

240 ‘ 

250 INK O,0:INK 1,21:INK 2,15:INK 3,10@:INK 4,6:1 
NK 5,26 

268 POKE &459C,%0@:POKE &459D,8&30: ‘buffer depart 

276 POKE &45A0,80:POKE &45SA1,8&C0: ‘adresse ecran 
du dessin 


280 POKE &456,7:° largeur en oc 
tets=S +2 bords vides 
290 POKE &454À7,10:° hauteur en li 


gnes=8 +2 bords vides 

300 FOR phase=1 TO 6 

310 buf (phase) =PEEK (&4590) +256*PEEK (&459D) : ‘recu 
pere adresse dessin 

320 MODE 6@ 

330 READ larg,haut 
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340 FOR h=1 TO haut 

350 FOR 1=1 TO larg 

360 READ colo:PLOT 8+(1-1)#4,396-(h-1)+2,colo 

37Q NEXT 

380 NEXT 

390 ‘ 

400@ CALL &4750 

41@ NEXT phase: ‘dessin suivant 

420 MODE 2 

43@ PRINT "DESSINS CODES EN MEMOIRE DE ";HEX# (bu 
f(1),4)5;" a ";HEX#(PEEK(&4590C) +256*PEEK (&459D 
),4) 

440 PRINT:PRINT"Sauvegarde sur fichier DESSINS "“ 

450 SAVE"dessins.bin",b,buf (1) ,6*7#10+1: "nb de p 
hases+*1largeur*hauteur +1 

468 ‘phase li 

478 DATA 10,8 

480 DATA 6,0,0,10,10,10,10,0,0,0 

490 DATA 6,0,10,10,10,1, 

500 DATA 10,10,10,1,1 

910 DATA 18,1,5,5,5 

920 DATA 18,1,5,5,5 

530 DATA 10,10,1,1 

940 DATA 6,0,10,1, 

9390 DATA @,0,0,10, 

060 ‘phase 2 

970 DATA 10,8 : 

980 DATA 06,0,8,10,10,10,10,0,0,0 

9590 DATA 6,0,10,10,10,1,1,3,0,Q@ 


608 DATA 18,10,10,1,1,1,1,1,33% 
61@ DATA 10,1,97,5,5,5,5,5,1,5 
628 DATA 18,1,9,5,5,5,93S13% 
6838 DATA 10,10,1,1,1s1s151,3,3 
848 DATA G,0,18,1,1,1,1,3,0,0 
650 DATA 0,0,0,10,3,3,3,0,0,0@ 


668 ‘phase 3 

6708 DATA 10,8 

680 DATA 6,0,0,10,10,10,10,0,0,0 
6890 DATA 6,0,10,10,10,1,1,3,0,0 


CRE LE] 
700 DATA 10,10,10,1,1,1,1,1,3,% 
71@ DATA 10,1,5,5,9,5,5,531,3 
720 DATA 10,1,5,5,9,5,5,5,1,3 
738 DATA 10,10,1,1,1,1,1,1,3,3 
740 DATA 0,0,10,1,1,1,1,3,0,0@ 
750 DATA 0,0,@,10,3,3,3,0,0,0 


768 ‘phase 4 

77@ DATA 10,8 

780 DATA 6,0,0,10,10,10,10,0,0,0 
790 DATA 06,0,10,10,10,1,1,3,0,0@ 
800 DATA 10,10,10,1,1,1,1,1,3,3 
810 DATA 10,1,5,5,9,9,93S913S 
820 DATA 10,1,5,5,5,9,5,5,1,3 
830 DATA 10,10,1,1, 
840 DATA G,0,10,1,1 
950 DATA 6,0,0,10,3 
860 ‘phase 5 

87 DATA 10,8 

880 DATA 06,0,0,10,10,10,10,0,0,0@ 
89@ DATA 0,0,10,10,10,1,1,3,0,@ 
900 DATA 16,10,10,1,1,1,1,1,3,3 
918 DATA 10,1,5,5,5,5,9,5,1,3 


920 
930 
940 
950 
960 
970 
980 
990 


1000 
1010 
1020 
1030 
1940 
1050 


10 
20 
30 
40 
50 
60 
70 
80 
70 
100 
110 
120 
1:0 
140 
150 
160 
170 
180 
190 
200 


210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
369 
370 
380 
390 
400 


DATA 
DATA 
DATA 


DATA 0,0,8,10,3,3,3, 


‘phas 
DATA 
DATA 


DATA @,0,10,10,10,1 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


10,1,53,9:530 959 
10,10,1,1,1,1,1, 
8,6,10,1,1,1,1,3 
e 6 
14,8 
6,6,8,18,10,10 


18,18,10,1,1 


jm. 
L_1 


Le 
- 


EME EEE ME DEEE ÉD DD DEEE DE DE 


°#+t Pr 


ogramme 4.3b +*## 


EME ME DEEE JE DE DEEE DE DEEE JE 
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‘creation d'un fichier dessin d'animation 


‘progr 


MEMORY &2FFF : MODE 


amme 4.3b 


2 


DEFINT a-z 


lign= 


240 


ad=&%000:FO0OR phase=1i TO & 


buf (p 


hase)=ad 


ctri=G@:READ c#t 


IF cé$="fin" THEN lign=lign+2@:NEXT:GOTO 


POKE 
FOR i 


ad,0:ad=ad+1i 


=1 TO LEN(c#) STEP 2 


c=VAL("&"+MID#(c#,1,2)) 


POKE ad,c:ad=ad+i:ctrl=ctrl+c 


7 
2335 


NEXT:POKE ad,@:ad=ad+i:READ teste 

IF teste<>ctrl THEN PRINT'"Erreur DATA ligne“ 
lign:END 
LOCATE 1,14:PRINT lign:lign=lign+1i@:GOTO 1350 


‘PHAS 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


E 1 

DO0U0002000UGVVV0GGVV0E , 
QGAGGGAOCES80000000000, 
DOUVGGASCCOCOVG0G08G06, 
OUGGGGQCERC488000000000, 
OU0GG0ACE48 782000000000, 
GGUGGGCERCDA2000080000, 
BUGGVGUCESC482000000000, 
G00@8G45CCOCS0000000a0, 
PAGVUGVGCCECS0000000080, 
00200000 14B00000000000, 
O00G=:F0014B00000000000, 
GGBGA2C345CAUGGGOUUAG0Q, 
G0B00A200CE8C80000008000, 
OGQGGA245CE0C8000000000, 
00007865CC488000000000, 
000078448C488C48802800, 
0000/78648C48CCA0CD05000, 


8 

342 
285 
418 
450 
458 
450 
415 
472 
196 
259 
628 
636 
977 
625 
812 


936 
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410 
420 
430 
440 
450 
460 
470 
480 
490 
300 
310 
9320 
9530 
5406 
9920 
360 
37/70 
580 
590 
600 
610 
620 
630 
640 
850 
660 
670 
680 
6970 
7008 
710 
7208 
730 
740 
750 
760 
77@ 
780 
790 
800 
810 
920 
8:50 
840 
850 
8840 
870 
880 
890 
900 
910 
920 
9:0 
940 
950 
960 
970 
980 
990 


1080 DATA VO0G0G0G0BB0CES80000000080, 
1010 DATA GG00G8845CCACAUCAGGG0G0G, 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


G00G7A64CCAC844C882000, 
000078865CC0C8000000000, 
QG0GFGESCESC8020000000, 
00000045CF8C8000000000, 
OUGV0G0A55:5::000000a000, 
D000GG4S5ACOCS002000000, 
QGAGGOGCERC48C0000080000, 
000045CC8C48C0800000006, 
0G15/7EBC:3CFOBG20000000, 
S1E7CFCC8C48C080000008, 
E7CFCC8CAaCOC48C0000000, 
E7CECCCCOCOCCOCO0000u0, 
D002000000000100000200, 
1583000000006B02000000, 
2F4B020000150F8:000000, 
000008000008 0000000000 , 
fin 


"PHASE 2 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


G0000000000000020000080, 
V0O0G0V00VG0CES880000000000, 
G000GGG45CCOCAUCAAGAGG GE, 
BG00GB60CEOUC488000000000, 
GGVGG0CE48782000000000, 
G@8086080CE8CDG20000800800, 
QBGBGGOCESCA482000000000, 
00000045 CCOCS8000000008, 
GBGVGGB8@CCSCS0080000000, 
DGG00G000058:0000000000, 
000080000058 :00080000000, 
00000000 AGS5E:0000002000, 
G0GBG0GG0S5S:00000AGUGR, 
000800000058:0000000000, 
BAGG0GOU45CAGOGOGOVGGGG, 
GO0GG:F4BCESC800080000800, 
OGQGBGA245CE0CS8Q0G000G00, 
00007/7865CC4880008000000, 
0000784648C488C48802800, 
000878648C48CCO0CD05008, 
GGG@G7AGACCOCS44C882000, 
000067865CC0C8000008000, 
GGO0GFGGSSCESCS000000000, 
00000045CF8C8000000000, 
00000000::::0020000000, 
OOG3FFCS:C78F05000000000, 
S1E7CFCC8C48C080000000, 
E7CFCC8COCaC48C0000000, 
E7CECCCC@OCACCACO000a00, 
00020014:CF0A100008000, 
158300CEQC486B02000000, 
2F4B47CC8C1D0F8:000000, 
BAGGGGPGGGGGAGCOUGGGGG, 
fin 


"PHASE 3 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


0000000000000000288400, 
000000000020 00AGGGG2@G, 
0000000000000000000000, 
DOGGVGGOGCAVGUCACAGAGAG, 
000000000000 00020G000 , 
000000000000 AG2GAGGE, 


814 
965 
815 
944 
182 
221 
482 
805 
845 
1255 
1070 
1253 
261 
291 
a 


342 
285 
418 
430 
458 
450 
413 
472 
134 
136 
136 
136 
136 
271 
612 
377 
25 
812 
936 
814 
965 
815 
544 
182 
785 
1255 
18070 


1253 


483 
991 
712 


S 


(r) 
@ 
a 
a 
a 
@ 


342 


285 


1820 
183@ 
18408 
1050 
1840 
1870 
1080 
1890 
1108 
1110 
1120 
113Q@ 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
127@ 
1280 
1290 
1500 
15310 
32 
1330 
1340 
1350 
1360 
1570 
13:80 
1390 
1400 
1410 
1420 
143Q 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1529 
1530 
1548 
1550 
1560 
1570 
1580 
1590 
1680 
1610 
1628 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


OGGGGQCEUCA488000000000, 
GUABBQCE48 782000000000, 
OGVAQBGBGGCEUCDA2000020000, 
DOGGGACESC482000000080, 
B0G0G045CCOC8000000000, 
BGGG:FOGCCS8C8000000000, 
OG00GA24B45CAGOGGAGOUOG, 
BOGGA20@CE8C8000000000, 
OGGBA245CE0C6000000000, 
00007865CC488000000800, 
000078448C488C48802800, 
000G78648C48CCA@CD05000, 
DOGG/7AGACCOCS44C882000, 
O0UGG/7845CCOC8000000000, 
G000F065CES8C8000000000, 
G863FFC3C78F053000000000, 
91E7CFCC8C48C080000000, 
E7CFCC8C@C@C48C00000u00, 
E7CECCCCOCOCCOCUU0000006, 
BG0200005C780102000000, 
158300003C786B02000000, 
2F4B02450C1D@F8:000000, 
GG0GBGGACEUC48C000000000 , 
G00045CCS8C48C0800000080, 
G000000000200000000000 , 
fin 


‘PHASE 4 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


GOG2GUOG0AUCACAGAaUGOGS, 
POO0G0GGV02000GAUGOUUGE, 
BUOQGGGUVUUALLGCGUGLGaGCe8, 
00000000 G0A0G0GAAGGUCAG, 
GGGGCESS8000000000000006, 
O845CCOCOUO VA UGUA0G000, 
BAGCEUCA4880000000000000, 
GQCE4878200000002000080, 
GGCEUCDG20000000000060, 
OAGCESCA820000000000080, 
0G45CCOCS80080002000000, 
GGGGCCSCS00200000220000, 
OUGU00S5E8:000020GVC0AV0GG0, 
0000058:00000000000000, 
000045 CA00G0G0GGG0AGG0, 
2F87CE8C80000080000000, 
AZ45CEQC800000000a0000, 
7865CC48C00000000000080, 
784489C489C488028000000, 
78648C48CCOCD052000000, 
7A6ACCOCS44C88270000000, 
7865CCO0C80000000000080, 
FO8&SCESC80000000000000, 
BQG3FFC3C78F03:0000000080, 
91E7CFCC8C48C080000000, 
E7CFCC8COCOCA48C00000u0, 
E7CECCCCOC@CCAOCO000000, 
00023:c7800000100000080, 
15833C7800004E07:0000080, 
2F4B0CO0C80150F8:000000, 
BGOCEUCA48C0000AG00000000, 
ASCC8C48C08000000000088, 
O0G0VGV0A0GG0UGGGVCUaR, 
fin 
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418 
450 
458 
450 
415 
9335 
508 
36 
977 
6825 
812 
956 
814 
965 
815 
783 
1255 
1070 
1253 
183 
441 
380 
482 
805 
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1850 
1640 
1850 
1660 
1670 
1680 
18690 
1700 
1710 
1720 


dE à 
Ps 


1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1850 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2810 
2020 
2030 
2840 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
21350 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 


Pr 


172% 
Las 


"PHASE 5 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


0000000000 0G0VA0V0CGVAUE, 
OUGGAGAOCUVAUCACAGCAGUGGE, 
000000000000 VAVOVGVAUG, 
CUGGAGA0GVGOVOGCCCUGUG, 
GOG0GCES2000000000000a8, 
DG45CCOCOG020G00000GeUG0, 
BQCEOUC4880000000020000, 
GOCE487820000000000800, 
BQCEUCDO=00020002008000, 
QQCE8C4820000000000000, 
O6845CCOC80000000000000, 
GGAGG@CC8C80000000000000, 
0000058:00000000000000, 
3F000583:000000000000080, 
A24B45CA0G000G0G0G0G00Q, 
AZQO@CES8C80000000000000, 
A245CE0C800008000000000, 
7865CC4880000000080000, 
78648C488C488028000000, 
78648C48CCOCD050000000, 
7A64CCAC844C8820000000, 
7865CC0C80000000000000, 
FO6SCESC80000000000000, 
OG45CF8C80000000080a00, 
0000::::00000000000000, 
GG3FFC:C78F03:000000000, 
91E7CFCC8C48C080000000, 
E7CFCC8C@cCecC48CcC0000000, 
E7CECCCCOCOCCOCOU00006, 
G017/7FC3:C28000100000000, 
15830C48C000650:000000, 
2FC30648C0935458:000000, 
000000000000 GG0GGV06G, 
fin 


"PHASE 6 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DOU00UAGGGAGAGGUGGAGOGG, 
000000000000 0000000060, 
DGUAU0GAVOGAGACGACGRAGGE, 
GG0U0OCES8800000000000000, 
QG4SCCOCUUUGAaCaUGaueC, 
BOCEUC4880000000000080, 
GQCE4878200000000000080, 
BGCEOUCDU20000000020008, 
GOCESC4820000000000000, 
BG4S5CCOC80000000008000, 
OGAGCCSC80000000000200, 
O00045CAUGV0UVGG2GGGG0E , 
:F4BCE8C80000000080800, 

24SCE0C80000000000800, 
7865CC4880000000200000, 


78648C488C488078000008, 


78648C48CCO0CD050000000, 
7A84CCAC844C88200080008 , 
7885CCOC80000000280800, 
FO&SCESC80000000080200, 
Ga45CF8C800000000000080, 
0000::::00000000000080, 
0G450C0C800000000880a00, 
OBOCEUGC48C0000000002000 , 
ASCC8C48C08000000u80au00, 


182 
783 
1255 
1070 
1253 


376 


= 
Jo 
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2246 DATA G01S5/7EBC/78F0:00G00G0BG, 745 
2258 DATA S1E/7CFCC8C48C080000020, 1255 
2266 DATA E7CFCC8COCOCA48CU00080a8, 1270 
2270 DATA E7CECCCC@C@CCACOUUGAQU, 1255 
2280 DATA GO0:000000G00102000008, = 

2290 DATA 158:000000006B070000008, 2861 
2:06 DATA 2F4B020000150F8:000088, 291 
2310 DATA UOU0GGGARCOUUGAUGGUAUE, G 

2320 DATA fin 

2330 SAVE "dessinsb",b,buf (1) ,ad-buf (1)+1 
2340 FRINT "Pret pour exec programme 4.4b" 


L@ “HN EME DE DE HE JE DE DE JE JE DE JE JE DE 

20 ‘++ Programme 4.30 *#+* 

SO ‘#6 EEE IE DE IE DE DE DE DE DE DE DEF JE 

40 

90 ‘creation d'un fichier dessin d'animation 
6 ‘programme 4.3c 


80 MEMORY &2FFF:MODE 2 

90 DEFINT a-z 

10@ lign=270 

118 ad=-&:000:FO0R phase=1 TO 6 

120 buf (phase) =ad 

130 ctri=@:READ c# 

146 IF c#="fin" THEN lign=lign+2@:NEXT:GOTO 250 

150 FOKE ad,0:ad=-ad+i 

16Q FOR i=1 TO LEN(c#) STEF = 

176 c=VAL("&"+MIDE(cC#,i,2)) 

180 POKE ad,c:ad=ad+i:ctrl=ctrl+ce 

19Q NEXT:POKE ad,8:ad=ad+i:READ teste 

200 IF teste“>ctrl THEN PRINT'"'Erreur DATA ligne" 
lign:END 

210 LOCATE 1,14:lign=lign+1@:GOTO 13@ 

2206 ” 

230 SAVE"dessinsc",b,buf (1) ,ad-buf (1)+1 

240 FRINT "Fret pour exec programme 4.4c" 

250 ‘ 

Z68@ ‘phase 1 

27@ DATA GUOUUBPAAAPOUATAPOUAACCOGUUGUCOCCUCUGCE, 


280 DATA O0RAQUG0GGOGAGCGABGAGCUUOGGVOGACGUAGGOGO, 
290 DATA DODO0BUUADVAOUGROCAUAAACACCCCGU0VCCLE200, 
300 DATA DO0G0GADAAVOBGAOCUUGCAAACOLCUUVALCCeUZEC, 
310 DTA QGOGOGGGUABAUOAGACUCUTAACCCACCUGALCCLCUGC, 
32 DATA AUCGOUGUAAUGATACOUUUGLACCCCCGUOUGGACCCaUC, 
330 DA DOVAUGAQOGAAACAVCOLOAACCATLDOGALARCGCCC, 
340 DER GO0OU0QGUAAROGQAAVOGUARACALOGUUGACCOGGZE, 
350 TA DOOCOUAUUACOBGAAGOOGAVCLCCCCZ222080820, 
() 


360 DATA GABDUN0UQBOCOUAUOUGUGUCALAñCUULUUUUUZ, 
G 
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370 


380 


590 


600 


610 


630 


640 


6880 


670 
880 
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DATA 
(re) 
DATA 
162 
DATA 
784 
DATA 
1307 
DATA 
1710 
DATA 


1736 
DATA 
1392 
DATA 
392 
DATA 
8 
DATA 


‘phase 2? 


DATA 
Le) 
DATA 
8 
DATA 
8 
DATA 
) 
DATA 
@ 
DATA 
@ 
DATA 
162 
DATA 
567 
DATA 
243 
DATA 
447 
DATA 
1264 
DATA 
1616 
DATA 
10008 
DATA 
476 
DATA 
272 
DATA 
408 
DATA 
340 
DATA 
272 
DATA 
(4) 
DATA 


DOUADUGGUOGCAGAAAGAAAACAAAGCATABALAUCE , 
DOUGUUVOUUUUCQGUAOGS1510020000O0BQAGERZO, 
DGVUGQUGGU4A4BBAGQGF 3F:A2Q000V4420000000, 
DODOGGAAQGCCCCAQQZATAZAZGG44CCSS0C000E, 
DAGADOAUA44ABBCCCCOBAZAZAZ44CCS8CCUOGUO, 


BOGGGUAACCAUGGCCCCEACACACCSEUCA44080000, 


000000448800002ACCD@FGC488000000CC08068, 
DOBOGUA44000A0000GVAA40COBGGOGAUVOGA 440000, 
DOCOD20UGVAAOBUABAACUVGBBGOAAOCOVLGCEUE, 
fin 

BARGBAGAGOPAGBAOGVAUGCAGCLGCA2G0C0A02A2060, 
DODOPOAGAUAAAOBOUGUGACOUCGAGUGCAUGCVACCUGS, 
DOGGGGADAARAUGGGAACOUAAGAACOGGUGLCEGEGE, 
DOV0UGUUnANNOGUAUnUUUUArAAaCUUAACaGAEE, 
GUOQGGAAAAAAOUAAGCOGGLUCACLOGUGACEGCAUE, 
GODGUOUUUUAACOaUUAGOUGzAnnAnUOaUUaGzzae, 
GCOGOGGU0AAGAPAGGUAS 100512000000 B0VEACOUGAE, 
BOGUQUNAAADOGAGASIF-FE:00COCOUEACCUGAUG, 
DOOGGGUGAAB0BGAAGS15151000000002008EA00, 
0000000000 AGGAGS1515100CC000000000000, 
BDOCOOCOUGUAAAQGA44CECACOCCCCCCOBAUAROUGG, 
BDOUOBOGUGUAACCCCCEF@EQCCOQCCSSCUU000E0, 
DOBGGUABAACCCCESAQCOBGAUUAnASSCU200200, 
GQUUGUNGA4ACCOGUVUAAAATANAGAACCAUGAAUAG, 
AABGGOUUCCOQLAAVBLAAAUUUCGUGA44020000089, 
D0000GU44880000000A0000a0G0GAAGA44S8G80000, 
AAVAAACCOBOABAAABAAAAGGLAGGUCCUGESG 000, 
GCODO0GB800000OU0U0AACGGVUAANACGUGESC200U0, 
OUBBOUPUAOAOAGAGAGAGAGCGCCUUGEGUUOCAURC, 


fin 


‘phase 5 
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&90 DATA QOGGOUOGOABQNUGOAGAGCGACGPAAULACOCOCCGCLCR, 
@ 
700 DATA OUBPOGAADGBOGAGA2GAAUAZVGUNOCAGCAUCACOR, 


73 
Je 


71@ DATA GUDOGBCOUROBOS1AZFE:00000PCAROCAL2AGAA, 
720 DATA DODOOUDUUBUGQGS1515100000000000CLe0UGEZ, 
730 ee DOUUOGUQCGAOGAS1515100000000070020CECS, 
24% 
740 DATA AOOGGUGAUBGUA44CS8CACACCOCCCUUUL2000U0u0, 
750 Sn BOGAUGUUDG44CCCSFGEUCCCCOUGUGGGC0CUGEE, 
768 ba GOGUUGDAAOCCES00COBAAGCCES000000000020, 
770 DATA DOGGUURAA44880000000n0000CCAUUCACaCGAUA, 
780 DATA GUOUUABACCOUGAAOCGGACUCOU0A44880000000000, 
790 DATA O00G0G44880000000000A0G00G0ACCAUCC200000, 
80a Din DO0GUG4402000000000000000044102020008009, 
810 Da DOGG0GACCANOUGABVGUUACOCCUU448200000000, 
820 ae BVOBGUUESAPAUUACUUUGAACCCCUAUSS00000000, 
272 
850 DATA DOUUUASSC0OGAPCCAVACCCCOUAU2ES00000000, 
848 AE COQ annG UC Ca nALCUUGUanACCCEGG2200, 
850 DEA DOUPEGAOUAUAAOGAGAAOUABOUACGACGVGAGAUGR, 
868 GARE BPOGAAAAAPOQAAAOGAAAGCOGOVAGALOGCGGGARE, 
870 RARE COGUGDACOAGUAVARTUQGLAACAGCVOGAAVOVOUZAVO, 
880 DA fin 
890 ‘phase 4 
9008 DATA BOOBA AAAGGAAPOAPABAAAPOGCUUVGABCCCUAE, 
910 DA DODOUTTU0UVOVUACUCUUALCAUCUUUUUALbCaURCE, 
920 Da GOO0GTANALAOCAGAOUUAAALCOCCOGUGLCCCUCG2C, 
30 DRE ARUOUUOUAUNCOUUNS 100510000000 200200000, 
7? 
940 DATA BOUUOUGAGUAOUGBUAGS1FEFE0O0QCOCAACAAOCAGO, 
950 PTE DOVOVOUGARACBUAAS151510000000002000000, 
98@ DA DOUAOGBAOGAGUOUAS151510000000000000006G, 
970 DATA QOGannOnQubanau4ACeCa acc eur ucan0rzcauue, 
980 AA 008390000008 44CCCSF@REOGCCCCOUCOULa000C0, 
990 Die OUAGUUBUGACCCCESUUCOSAAaUCCCCESa2u20e06c, 
1408 
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1080@ DATA 
, 816 
10123 DATA 
, 408 
1078 DATA 
, 498 
1950 DATA 
, 408 
1048 DATA 
» 272 
1050 DATA 
» © 
1806Q DATA 
, © 
1070 DATA 
, @ 
1080 DATA 
, 0 
10970 DATA 
1100 ‘phas 
1110 DATA 
,» Q 
1120 DATA 
, Q 
11530 DATA 
, Q 
114Q DATA 
, @ 
1150 DATA 
, 9 
1168 DATA 
, 9 
1170 DATA 
C1 ne 
1180 DATA 
» 367 
119QG DATA 
, 2435 
1200 DATA 
, 651 
1210 DATA 


» 23932 
122@ DATA 
, 2432 
1250 DATA 
, 11536 
1240 DATA 
, 816 
2350 DATA 
, 408 
1268 DATA 
, D 
127@ DATA 
, à 
1280 DATA 
» Q 
1290 DATA 
, à 
1300 DATA 
1310 ‘phas 
1320 DATA 
Le 


L 


OUD0G2A044ACCSEUUOQUACOURAQCCCCaUCOCERS 
DOOGAAUACCAOQOQLAUOCGUQUANUURA448008082€ 
QDC200044880000000800000U00VAaRGUCCaL220aa 
OUGOCOCCOQROGCOGCOGAVGUOOCOAGAUA442E50290 
ODO0OG0BBQ00A00GGABCGGGUGAAGCCCUGUS808aA0 
DOU0OUGGUAVAUGGAVACOGCAGARCCLGGA2CGGAR 
000000 GAGOAAGUOAGACGACOAUGABCAACAUCAACAAG 
DA00GUAOGAAGAVOUGVOGACVLACOUGLOGLUAGGGCAG 
DOUQVOUAVAGAGACOAGCALAAACOL22GACGACACG 
fin 

e © 
DDAG0OVACALAPABLAAAAGAGOGLACCOCAUCOGLaR 
OO000GGA0AUCGGUGAGVOGUGAACCUaUAC2CeCGAGA 
DOUUO0GVOUACOOGOAACGOCUAVCCALUUACLaGAR 
DOVOGGGAGAAGGGUGAAGOUUGRAACCCUUGAGCCUAC 
DO0OGOUUARAOUGGABACAUGUGAECAGCULACUaUG 
DOCGRGUOAPUAOAGAGAALOUCCOCAGLGCGOGGAGGG 
DOGADOGAQGABOGAGA2AZO0GAAGUGBGVAGAVGACA 
D0DDOGOUGAGGVBQCS1F EF COCACGOPGGEGGUGA2G 
DOGDOGUGAGGAGGUS15151000000000LA0200L0R 
D00a0000448800515151000AC 000008200208 
QQDAGACCCCCCCCC8CACACCECCCCCCESQGUCO0u0e 
BOancCCc8844CCC8F@ER@CCCCOGCCCCSS20000a 
GACCCCUOOPAUBOGOCOSQGGUAUUUG44CCESQUUR 
CCCCOGGGNADPGOGGAALQGGUGAALROUA:ACCESA2Q 
CCO0000U0AAGG0GGGAAGGGUUGACAUCUUG448808 
OO000GUQUAACOGUAAALGAGAACOUCCaUeLTCCALA 
DOGAOGGVOUAGGVOGADGAOGAACAULCUUAGACCCAR 
OO0OGUAUAAOOGGUVOVAUGARAALOUUEACCCAZAQ 
DOUUCOOOUDALARAAAGACATAUCCOCCUACaUCEGA 
fin 


e 6 
DUOUBOAGVOVOAUAGACAQGIGOUOCANDOLUCAA2A 


1350 DATA 
, © 
1548 DATA 
, 
1350 DATA 
, © 
136@ DATA 
, 
137Q DATA 
, @ 
1380 DATA 
, © 
1590 DATA 
, @ 
140@ DATA 
, @ 
1410 DATA 
, 
1420 DATA 
» 272 


1450 DATA 
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DAAGUDDOBVODOGUGBAGCUOCOGALACLCAUCCGCC 
DOUAOGOABOOOUGUGOUUOCOUTAACCAOCaLCLCEZ 
DOGGGAAAROOGAAGCAUGAAGCOLOVGGGACACCEGAAAC 
DOUV0GG000UUVOGAAAOCGACARLOGVPAUCaCUCAQ 
OGAPOUAOGACGGOGCGGLOGUEGAACAGCCALaCCCA 
D0OGAAVACOUVAACOUNAALLCLOCGUVAACCCAA2A 
DO000G0200O0AAAAGGAANACCCOCCALA20aCa22020 
DOUDOU POGVGABAGOUACOALOGALCUAVAACL22G 
DOVUUUGAAAGLOAAGCUUUAAAAACCUCAULCLaGUCA 
DOVOUDGUESOUORCAACOGAAAAAPOUSEUCACCCAURA 


DOUUGBOCCCCOVUBGOUS 1000008440 CE800000200 


, 897 

1440 DATA 
, 1791 

1450 DATA AUCCCCAUQUCCOUS151510044880044CCS88000C 
, 1467 

1468 DATA GOCCOUAUAU448851515100CCO00000C44880000 
, 1059 

1470 DATA UUGUBAAUQGBOCCCECOCACCSS0ANCAUUUVPAGGC 
, 1128 

1480 DATA 
, 926 

1498 DATA 


+5 
32 


BAGACCCC44880051F5:F3:0000CC44CCS80000980 


DOOVAOGOQU0GA44CSFGEUCCOCAAUAGGGGCGCGEG 


DAUDUGROCAGGRGAACALOCCOCUALOUGECGAaUa20G 
, 

1500 DATA 
» B 

1510 DATA 


2000000000 GVAGOOUAAAALOCOGGUGAGELaGLZA 


fin 


Celle-ci remet automatiquement à jour l'adresse du buffer utilisé pour le 
codage du dessin. En clair, lorsque le retour au Basic a lieu, l'adresse BUF 
est placée après le dernier octet du dessin codé. Cela permet d’enchaîner 
les codages sans recalculer leur emplacement après chaque appel. 


Une remarque importante s'impose concernant le codage du dessin. 
Nous voulons déplacer celui-ci sur l'écran, mettons vers la droite. Si nous 
n'y prenons pas garde, voilà ce qui risque de se produire. Une fois le dessin 
mis en place à l'écran, nous allons le redessiner (éventuellement dans une 
autre phase) un octet à droite. Cela va donc laisser une trace à l'écran. Le 
premier octet de chaque ligne restera en effet à l'endroit précédent. Si nous 
déplaçons l'objet vers la gauche, c'est le dernier octet de chaque ligne qui 
va rester à la droite de la nouvelle position. Pour ce problème, il y a deux 
remèdes. Le premier est d'effacer l'écran là où se trouvait l'objet précédem- 
ment, avant de le dessiner à son nouvel emplacement. Cette solution un 
peu rudimentaire a un inconvénient : elle provoque un clignotement du 
dessin lors de ses mouvements. 
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La deuxième solution consiste à intégrer un bord vide au dessin lors de 
son codage. Ainsi, le premier et le dernier octet de chaque ligne sont de la 
couleur du fond, il n'y a donc aucun scrupule à avoir. Par contre, ceci 
augmente la taille du codage. Mais la facilité de traitement qui en résulte 
vaut ce petit sacrifice. Cela ne complique aucunement le dessin prélimi- 
naire avant codage. Il suffit simplement de dessiner l'objet sur un écran 
vide, et de coder ce qui se situe autour de lui. C'est l'explication d'une des 
particularités du programme 4.3. 


En effet, alors que le dessin occupe 5 octets de large et 8 lignes, on place 
dans les variables LAR et HAU les valeurs 7 et 10. Il s'agit simplement de 
coder un octet en plus dans chaque direction autour de l'objet. Celui-ci est 
dessiné par PLOT en haut à gauche de l'écran, en laissant une ligne vide au- 
dessus et deux points à gauche (un octet contient deux points). Une fois 
toutes les phases codées en mémoire, le programme écrit celles-ci dans un 
fichier binaire DESSINS. 


Le programme 4.4. récupère ce fichier et affiche les phases l’une après 
l’autre, grâce à la seconde routine. 


LA RHONE EE DER DEEE EE JE 

20 ‘++ Frogramme 4.4 «xx 

SD HOME DEEE ME DEEE DE DE DEEE 

48 ” 

S0 ‘dessin d'un objet en plusieurs phases 

6 ‘d'apres le codage effectue par programme 4.5 

78 ‘aux adresses +2fff et suite. 

89 ‘application de la routine 4.1 

98 

108 MEMORY &2FFF 

11Q ad=-&44708:1lign-208 

120 ctri=B:sREAD cH:1F cé="fin" THEN 279 

13Q FOR i=1 TO LEN(c#) STEF 2 

148 c=VAL("&"+MID#E (cé ,1,2)) 

150 POKE ad,c:ad=ad+i:ctrl=ctrl+e 

160 NEXT:READ teste:IF teste<:ctr1 THEN FRINT'Er 
reur DATA ligne"lign:END 

170 lign=lign+iG:G60OT0 120 

180 ” 

19Q DATA EDSBAU4S2A9CASSAA74S47C5D55AAGA4S, 1892 

208 DATA 4FG6GGGEDBGEEE1CD26GECEBCIIGMELC7, ZZ7i 

21@ DATA "fin" 

228 

230 MODE Q@ 

248 LOAD'image.bin",%C@BG: ‘chargement du decor, 
optionnel 

250 FOR 1-0 T0 15 
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260 INK I,ASC(MID#("ACLFSPGJOLJXSDZO",I+1,1))-85 
27Q ‘INK I,ASC(MIDE#("AMTOSVSJREJXSRYO",1+1,1))-& 


Lt 


S pour monochrome 


289 NEXT 

298 ecr-63120 

309 FOKE 456,7: largeur en oc 
tets 

310 POKE %45A7,10: hauteur en n 


ombre de lignes 

329 LOAD'"'dessins",&3:000 

358 FOR phase=i TO 4 

340 buf (phase) =&453000+(phase-i)x(7*10) 

359 NEXT 

360 ‘ 

578 FOR phase=i TO 4 

390 POFE %4459C,buf (phase) -256%*INT (buf (phase) /2564 
):POKE %459D,1INT (buf (phase) /256) 

370 ecr=ecr+i1:PO0OKE %45A0,ecr-256%INT (ecr/256):F0 
KE &ASAL,INT(ecr/256) 

408 CALL %4700:CALL &4700 

418 FOR i=1 TG 7G:NEXT 

428 NEXT 

36 GOTG 370 


Vous remarquerez la boucle d'attente de la ligne 390, et le double appel 
de la routine en 389. Cela n'est destiné qu'à obtenir un déplacement souple 
de l’objet pour rendre le mouvement agréable à l'œil. La suppression de la 
boucle d'attente entraîne un mouvement saccadé, les affichages se 
succédant plus rapidement que l'œil ne les fixe. 


REMARQUES 


Les deux routines de ce chapitre sont utiles à plus d'un titre. Elles 
constituent en quelque sorte le noyau de l'ensemble des routines du livre. 
Bien qu'elles soient courtes et simples, elles procurent des fonctionnalités 
extrêmement pratiques : 


— elles peuvent traiter des objets de taille quelconque ; 

— elles travaillent à partir de données élémentaires 16 bits, faciles à traiter 
par un programme extérieur ; 

— elles produisent un résultat brut indépendant de toute autre considéra- 
tion liée au programme appelant. 


En revanche, elles ont deux défauts : elles n’autorisent pas de mouve- 
ment d'objet sur un fond de décor, et ne traitent que des objets codés 


164 ! GRAPHISMES EN ASSEMBLEUR SUR AMSTRAD 


simplement, parfois très encombrants. Nous allons remédier à ces deux 
problèmes dans les chapitres suivants. 


Les programmes 4.3b et 4.4b ont respectivement les mêmes fonctions 
que les 4.3 et 4.4, mais ici l’objet animé est un robot. Sa particularité est de 
posséder six phases d'animation plus complexes que pour le module, 
permettant ainsi de constater l'efficacité du principe. Les programmes 4.3c 
et 4.4c ont également les mêmes fonctions, mais le personnage animé est 
une puce extraterrestre. Vous pouvez sans problème créer 4.3c et 4.4c à 
partir de 4.3b et 4.4b. Seuls les DATA des dessins et quelques POKE sont 
modifiés. 


Modifications de 4.4 pour 4.3b 


290 ecr=59104 


SOG POKE &45AS6,21:" largeur en © 
ctets 
510 POKE &45A7,19:° hauteur en n 


ombre de lignes 
320 LOAD'"dessinsC",4:080 
548 buf (phase) -&:060+(phase-1i)*x(21*x19) 


Modifications de 4.4 pour 4.4b 


298 ecr-64768 


SG POHE %45A6,13:° largeur en o 
ctets 
31@ POÉE %45A7,353:° hauteur en n 


ombre de lignes 
3528 LOAD'"dessinsBs",2:000 
348 buf (phase) =&5008+(phase-1)x(135*x35 


Les fichiers “dessins”, “dessinsb” et “dessinsc” créés par les pro- 
grammes 4.3 sont utilisés dans les chapitres suivants afin de vous épargner 
de longues listes de DATA. Ne perdez donc pas la cassette ou disquette où 
vous les installez. 


CODAGE DES OBJETS | ñ 
GRAPHIQUES 
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POURQUOI COMPACTER ? 


Nous avons réalisé dans le chapitre précédent deux routines nous 
permettant de traiter facilement des objets. Elles permettent de gérer la 
plupart des petits objets sans difficulté ni inconvénient. || en va autrement 
si les objets à dessiner sont de grande taille. Un simple dessin de 40 points 
sur 20 lignes va nécessiter 22x22= 484 octets (y compris les bords vides). 
Nous pouvons probablement réduire cet encombrement. 


La solution passe par un compacteur graphique. Si nous trouvons un 
moyen de réduire l'encombrement du dessin en le codant différemment, 
nous aurons plus de place pour les dessins. 


Il existe de nombreuses façons de réduire un dessin. La plus simple est 
de réaliser un interpréteur graphique, et de transformer le dessin en 
programme. Par exemple, un grand rectangle vide sera une suite de 
commandes du type “PLOT premier coin, DRAW deuxième coin, DRAW 
troisième coin, DRAW quatrième coin, DRAW premier coin, REMPLIT point 
intérieur”. Mais ce procédé a un gros inconvénient : sa lenteur. Par là 
même, il restreint son intérêt aux dessins géométriques et non animés. 


Une autre solution est celle du compacteur graphique. Nous allons le 
réaliser. 


MÉTHODES DE COMPACTAGE 


Il faut définir un principe de codage. Nous allons compacter chaque ligne 
de dessin avant de la mémoriser. Lors de la restitution, nous décompac- 
terons avant de dessiner sur l'écran. 


Une façon simple de compacter est la suivante : au lieu de stocker 
chaque octet de la ligne, on stocke les parcelles d’octets identiques sous la 
forme “Nombre d'octets à dessiner, Contenu de ces octets”. Ainsi, si la 
ligne comporte dix octets à $00 de suite, ils deviendront deux octets : $0A. 
et $00, soit dix et zéro. Si le dessin comporte alors de nombreuses lignes 
intégrant elles-mêmes de nombreuses suites d'’octets identiques, le 
compactage sera extrêmement avantageux. Par contre, il en sera autre- 
ment si chaque ligne ne contient que des octets différents ou non 
regroupés : dans ce cas, le nouvau codage est deux fois plus encombrant 
que l’ancien ! || faut donc être prudent : le compactage n'est pas universel- 
lement intéressant. 

Remarquez également que nous pourrions compacter par colonne au 
lieu de nous intéresser aux lignes : les problèmes et les avantages sont 
exactement les mêmes. 


La solution, telle que nous l'avons envisagée, limite l'intérêt du compac- 
tage aux dessins formés de nombreuses lignes contenant des octets 
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groupés. Nous pouvons, moyennant une légère consommation supplé- 
mentaire, en élargir le champ. Pour cela, il suffit d'ajouter un octet 
préliminaire à chaque ligne. Cet octet permettra de représenter deux cas : 
ou bien le compactage n'était pas intéressant, auquel cas la ligne n'est pas 
codée et doit être recopiée telle quelle à l'écran, ou bien il faut la 
décompacter lors de l'affichage car le compactage était économique. 


Cela raffine le procédé. || se peut qu'une certaine zone du dessin possède 
de nombreux groupes d'octets, et que le reste du dessin soit anarchique. 
Dans ce cas, la distinction au niveau de chaque ligne nous permettra de 
gagner tout de même des octets. 


Nous venons de définir le format d'un objet compacté en mémoire. En 
effet, nous savons que : 
— si le premier octet a une certaine valeur, la ligne n'est pas compactée. || a 
donc LAR octets à recopier simplement (par exemple par LDIR comme au 
chapitre précédent) ; 


— si, par contre, il a une autre valeur donnée, la ligne est compactée. Au 
lieu de copier les octets un par un, nous devons lire un certain nombre de 
couples d'octets et les transformer à l'écran selon leur signification. 


En ce qui concerne la valeur de cet octet préliminaire, vous remarquez 
que nous n'avons besoin que de deux valeurs. Pourquoi ne pas utiliser un 
simple bit, signifiant alors “compacté” s’il est à 1 et “non compacté” s'il est 
à zéro. Dans ce cas, il nous reste 7 bits de l’octet. Nous pouvons alors en 
profiter pour simplifier le décompactage des lignes ou leur copie non 
compactée. En effet, si la ligne est compactée, nous avons un nombre 
inconnu de couples d'octets à lire. Ce nombre dépend de la ligne 
compactée et du nombre de groupes d'octets s'y trouvant. || est possible de 
coder ce nombre de couples dans l'octet préliminaire, dans les 7 bits 
restants. Cela nous autorise à placer jusqu'à 127 couples d'octets dans une 
ligne, ce qui n'aura jamais lieu : au pire, la ligne occupe toute une ligne 
d'écran, ce qui représente 80 octets au maximum. Nous aurions alors 80 
couples (et encore ne s'agit-il que d'une vue de l'esprit : dans un tel cas, la 
ligne ne serait pas compactée !). 


Par soucis d'homogénéité, nous pouvons placer LAR dans l'octet 
préliminaire si la ligne n'est pas compactée. Cela est presque inutile 
puisque nous connaissons a priori LAR. Le dessin sera donc mémorisé 
sous la forme suivante : 


CO Pour chaque ligne : 


— si bit 7 du premier octet=1, ligne compactée : la valeur représentée 
par les 7 bits de droite est le nombre de couples d'octets à décompacter. 
Une fois ces couples sautés, la ligne suivante commence ; 

— sinon bit7=0, il s’agit d'une ligne non compactée. Copier les LAR 
octets suivant directement sur l'écran. Après eux commence la ligne 
suivante. 


C Ligne suivante. 
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ALGORITHME DE COMPACTAGE 


Il nous faut maintenant définir la première routine plus précisément. Elle 
se chargera de compacter un dessin de l'écran en mémoire. En entrée, elle 
doit posséder les mêmes renseignements que son homologue du chapitre 
précédent : BUF, adresse de destination de l'objet, LAR, nombre d'octets 
de largeur, HAU, nombre de lignes, et ECRAN, adresse du coin en haut à 
gauche du dessin sur l'écran. En sortie, BUF sera positionné sur le premier 
octet suivant l'objet. 


L'algorithme est le suivant : 


O initialiser le pointeur de destination de l’objet ; 

Q initialiser le pointeur du dessin original ; 

O pour HAU lignes : 

e positionner le bit 7 de l’octet préliminaire actuel (par défaut, la 

ligne est compactée) ; 

e positionner le pointeur destination sur le deuxième octet (c'est-à- 
dire le début des couples de données, immédiatement après 
l'octet préliminaire) ; 
compteur de couples=0 ; 
compteur d'encombrement=0 ; 
octet de référence=premier octet du dessin ; 
compteur de répétition=0. 
pour LAR octets : 

— incrémenter le compteur d’encombrement. 

— si l'octet écran=octet de référence : 

incrémenter le compteur de répétition. 
passer à l’octet écran suivant de la ligne ; 
si cet octet diffère d'octet de référence : 
stocker compteur répétition dans la destination ; 
stocker octet référence derrière ; 
avancer le pointeur destination ; 
octet référence=nouvel octet écran ; 
incrémenter le compteur de lectures ; 
compteur de répétition=0 ; 
incrémenter le compteur d'encombrement. 

e fin boucle sur LAR. 

e mettre compteur de lectures dans les sept bits de droite de l'octet 
préliminaire. 

e se replacer sur l'octet préliminaire en destination sans perdre la 
valeur finale de la boucle LAR, qui représente le début de la ligne 
suivante en destination si la ligne actuelle est compactée. 

e si compteur encombrement>=LAR : 

— enlever le bit7 de l'octet préliminaire, la ligne ne doit pas être 
compactée ; 

— mettre LAR dans les sept autres bits de cet octet ; 

— copier directement la ligne écran dans la destination (LAR 
octets) ; 

— remettre à jour le pointeur destination : ancien+LAR+1 ; 
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e sinon, la destination est déjà au point, il faut juste remettre à jour 
le pointeur destination. 
e passer à la ligne suivante de l'écran. 
CO fin boucle sur HAU. 
O fin de la routine, remettre à jour BUF d'après la valeur actuelle du 
pointeur destination. 


Nous devons également faire une liste des variables nécessaires : 


— BUFAC sera notre pointeur destination. Au départ, il prendra la valeur de 
BUF et nous travaillerons avec BUFAC ; remettons BUF à jour après le 
traitement de chaque ligne. C'est une variable 16 bits. 

— BUF est le pointeur initial de destination. Comme BUFAC, il s’agit d'une 
variable 16 bits. 

— LIGNE va être l'équivalent de BUFAC pour l'écran : nous ÿ rangerons 
l'adresse écran de la ligne en cours de traitement. 

— ECRAN, enfin, (dernière variable 16 bits) est la donnée de départ 
indiquant l'adresse du dessin. 


Nous aurons aussi comme variables 8 bits : 


— COUNT, compteur d'encombrement ; 

— REPEAT, compteur de répétition ; 

— OCTREF, octet de référence ; 

— LECTUR, compteur de lecture ; 

LAR et HAU, données initiales largeur et hauteur du dessin. 


Notons l'usage qui sera fait de certains registres lors des travaux : IX 
pointe sur COUNT, ce qui permet d'accéder aux autres variables simple- 
ment par adressage indexé. Pour incrémenter le compteur de lecture, on 
utilisera par exemple une simple instruction “INC (IX+3)" au lieu de la 
séquence classique “LD A, (LECTUR)’—"INC A”—"LD (LECTUR),A” qui est 
plus lente, encombrante, et nous ferait perdre le contenu du registre A. DE 
sera le pointeur écran de travail sur la ligne en cours de traitement. BC sera 
utilisé à chaque fois que l’on aura besoin d’un compteur. L'ancien BC sera 
bien entendu sauvegardé auparavant s’il ne doit pas être perdu. 


Le programme 5.1 est la traduction en LM de l'algorithme. Largement 
commenté, il vous suffira de le suivre comparativement à l'algorithme pour 
comprendre son fonctionnement (listing assembleur 5.1). 


18 ; 
28 sprograme de coapactage graphique 
30 ;Entrees: variables ECRAN,HAU,LAR et BUF 
40 ;Coapacte l'inage designee dans le buffer 
90 ; (programme 5.1) 
68 ; 
4509 70 OR6 #4590 
86 


170 | 


4500 
ASUS 


4506 
4509 
4504 


450 
450F 
4512 


4515 
4514 
4517 
4514 
451D 
4521 
4522 
4525 
4528 


4529 
4529 
452A 
452D 
4539 
453 
4534 
Lente 
4537 
453 
453B 
453E 


4541 
4544 
4545 
4546 
4549 
4544 
454B 
454C 
454F 
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2AAG4S 
229E45 


SAA74S 
47 
DD21A245 


C5 
29045 
25 


AF 
S2AS45 
32A545 
S2A245 
EDSB9E4S 
iA 
32A445 
SAAGAS 
47 


iA 
DDBEU2 
C25345 
DD3401 
13 

78 
FEQI 
CA4I45 
A 
DDBEU2 
CASC4S 


SAASAS 


+77 


2 
SAA4A4S 


23 
1A 
32445 
DD3403 


90 ENTREE: 
100 
110 ; 


LD HL, (ECRAN) 
LD (LIGNE) HL 


sadresse du dessin sur ecran 
debut de ligne 


120 ;aise en place boucle pour une ligne ecran 


130 ; 

140 

150 

160 

170 ; 

189 NEWLIN: 


EE 


300 ; 


310 etude de l'octet actuel 


328 ; 
338 NEWOCT: 


LD A, (HAL) 
LD B,A 
LD IX,COUNT 


PUSH BC 
LD HL,(BUF) 
INC HL 


XOR A 

LD (REPEAT),A 
LD (LECTUR),,A 
LD (COUT) ,A 
LD DE, (LIGNE) 
A, (DE) 
(OCTREF) ,À 
A, (LAR) 


LD 
LD 
LD 
LD B,A 


LD A, (DE) 

CP (IX+2) 

JF NZ,0CTSUI 

INC (IX) 

INC DE 

LD AB 

œæ 1 

JP Z,COMPAC 
A, (DE) 

CP (IX+2) 

JP Z,FINOCT 


LD A, (REPEAT) 
LD (HL),A 
INC H 

LD A, (OCTREF) 
LD (HL),A 
INC HL 

LD A,(DE) 

LD (OCTREF),,A 
INC (IX#3) 


snoabre de lignes 
sdebut table variables 8 bits 


;sauve compteur lignes 


;HL pointe destination des 
donnees 


;compteur REPEAT 
;compteur lectures 
scompteur COUNT 


sier octet de la ligne/dessin 
;=octet de reference 


snombre d'octets sur ligne 


soctet ecran 

;=octet reference ? 
snon:octet suivant. 
srepeat=repeat+i 
savance dans ligne ecran 
scompteur octets 
sdernier octet ? 
soui:compacter 

sprend l'octet dessin 
;=octet ref ? 
soui:continuer boucle 


yrepeat 

splace dans buffer 
savance buffer 
soctet ref 

splace dans buffer 
savance buffer 
soctet ecran 
snouvelle reference 
;lectures=lecturesti 
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4552 DD5408 9370 INC (IX+8) 
4555 DD3400 500 INC (IX+@) ;count=count+2 
4558 ÀF 390 XOR À ;A=0 
4559 32A345 698 LD  (REPEAT),A ;repeat=0 
6iB ; 
ASC 10CB 620 FINOCT: DJNZ NEHOCT suite etude ligne 
630 ; 
640 ;fin de la ligne. RAJ compteurs et pointeurs 
650 ; 
ASSE  229A45 668 LD  (BUFAC),HL ÿsauve valeur fin BUFAC 
4561 2A9C45 670 LD HL,(BUF) debut bufac 
4564  ZSAASAS 680 LD A, (LECTUR) ;nombre de lectures 
4567 CEFF 699 SET 7,A scompacte, par defaut 
4569 77 700 LD  (HL),A sdans codage de ligne 
456À  3AA245 718 LD A, (COUNT) ;longueur compactage 
456D DDBEU4 720 CP (IX+4) scompare a LAR 
4570 DAG545 750 JP  C,FINLIN 30k pour compactage 
748 ; 
758 jne pas compacter, ce n'est pas interressant. 
768 ; 
4573 SAAGAS 778 LD A,(LAR) nombre d'octets 
457b 71 798 LD (HL),A 5b7=0,non compacte. 
4577 233 798 INC HL 
4578 EE 800 EX DE,HL 3DE pointe datas dans buffer 
4579  2A9E4S 8ia LD HL, (LIGNE) sdebut de la ligne 
457C 4F 820 LD CA 
457D 0600 850 LD B,@ 3BC=LAR=nombre d'octets 
457F  EDBQ 848 LDIR stransfert dans buffer 
4581 EDSS9A4S 659 LD  (BUFAC),DE fin de ligne en buffer 
868 ; 
4585 2A9A45 878 FINLIN: LD HL,(BUFAC) 
4589 229C45 898 LD (BUF),HL ;RAJ pointeur buffer 
458B 2A9E4S 899 LD HL, (LIGNE) 
458E CD26BC 908 CALL #BC26 passe ligne plus bas 
4591 229E45 918 LD (LIGNE) ,H 
4594 Ci 920 POP BC srecupere compteur lignes 
4595 05 950 DEC B 3NEKLIN est trop eloigne pour 
djnz 
4596 C20E45 940 JP NZ,NEWLIN ysuite dessin 
4599 C9 950 RET 
968 ; 
978 ;variables 
988 ; 
A5SA 0000 990 BUFAC: DEF 0 


459C 0000 1008 BUF:  DEFWG 
459€ 0000 1010 LIGNE: DEFW 0 
4540 0000 1028 ECRAN: DEFH D 
4542 00 1039 COUNT: DEFB @ 
4543 0 1049 REPEAT: DEFB @ 
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45A4 QU 1050 OCTREF: DEFE @ 
4545 00 1968 LECTUR: DEFE Q 
4546 00 1070 LAR: DEFB 0 
4547 00 1888 HAU: DEFE @ 


Pass 2 errors: Q0 


Le programme Basic 5.1 met en application la routine. 


1O HEIN IE ED DE DE DE DE IE JE HE 

28 ‘** Programme 5.1 *## 

SO “HHHHMHNM NME X 

40 ” 

90 ‘compactage d'un objet graphique 

68 ‘programme 5.1 

70 ” 

80 MEMORY &2FFF 

9Q DEFINT a-z 

108 ad=&4500:1ign-200 

110 ctrl=@:READ c#:1F c$="fin" THEN 300 

126 FOR i=1 TO LEN(c#) STEP 2 

130 c=VAL("R"+MIDE(CE,1i,2)) 

140 POKE ad,c:ad=adti:ctrl=ctrl+e 

15Q NEXT:READ teste:IlF teste<>ctrl THEN PRINT'"Er 
reur DATA ligne"lign:END 

160 lign=lign+1@:GOTO 11@ 

170 

18Q DATA 2AA045229E453AA74547DD21A24SCS2A, 1621 

190 DATA 9C4523AF32A34532A54532A24SED5B9E, 1768 

208 DATA 451A32A4453AA645471ADDBE02C25545, 1495 

210 DATA DD34611378FEB1CA414S1ADDBEQ2CASC, 1737 

220 DATA 453AA34577233AA44577251A32A445DD, 1488 

230 DATA 3403DD34808DD340B0AF32A43451@8CB229A, 14685 

248 DATA 452A9C453AASA4SCBFF77S3AA24SDDBEZ4, 1909 

250 DATA DA8S5453AA6457723EB2A9E454FO600ED, 1693 

268 DATA BGED5394452A9A45229C452A9E45CD26, 1755 

278 DATA BC229E45C105C20E450C9, 1125 

280 DATA "fin" 

290 ‘ 

300 MODE @:INK @,G@:INK 1,1@:INK 2,15:1INK 35,2G:IN 
K 4,17:INK 5,26 

310 READ larg,haut 

320 FOR h=1 TO haut 

330 FOR 1=1 TO larg 

340 READ colo:PLOT 8+(1-1)#4,396-(h-1)*42Z,col0o 

330 NEXT 

360 NEXT 

370 

380 DATA 24,26 

390 DATA 0,0,0,0,0,0,0,0,0,8,0,1,1,2,2,0,0,0,0,0 
.80,0,0,0 

400 DATA G,0,0,0,0,0,0,0,0,0,1,1,2,2,2,2,0,0,0,0 
,0,0,0,0 
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41@ DATA 0,0,0,0,0,0,@,0,0,1,1,252525292925@09C 50 


,2,0,0,0 

420 DATA 0,0,0,0,0,0,0,@,1,1,1,25252529292509@3@ 
,2,0,0,8 

30 DATA 0,0,0,0,0,0,0,@,1,1,1,2,232929292525@9@ 
,2,2,0,0 

440 DATA 0,0,0,0,0,0,0,1,111329292929292925@9@ 
,8,0,0,0 

450 DATA 0,0,0,0,0,0,0,1,1,152525292929292r2925@ 
,0,0,0,0 

460 DATA 0,0,0,0,2,0,0,1,1,1:252929252929Z22529@ 
,8,0,0,0 

470 DATA 9,0,0,0,0,0,1,1,1,192:2,2229292329290 
,2,8,0,0 

480 DATA G,0,0,0,5,%,1,11515292929252925292529S 
,2,0,0,0 

490 DATA 0:0:352,5:5,1:,1,1,1,2,2,2:2,2)2,2,2,265 


5355:0,0 

500 DATA G,3,5,3,4,45119151525252929292529295294 
453330 

510 DATA 3,3,3,4,4,@,1,15102520292929252929292 90 
54,4,35,3 

520 DATA 3,3,4,4,4,0,1,1,152525292925292529232 90 
,8,4,4,3 

530 DATA 3,4,4,4,0,0,1,1,1,23252529252525252952%@ 
,4,4,4,5 

540 DATA 3,3,4,4,4,@s151515252529292525292529 290 
54,4,4,3 

550 DATA 0,3,3,4,4,4,1515151925292529292929292594 
54,4,3,3 

568 DATA 0,3,3,3,4,44,1510152525292929232925454 
535333 

570 DATA 0,0,3,3,3444545454545454545454543454 
53535390 

580 DATA 0,0,0,0,3,3,3,233445454545454545454335S 


53:3,0,0 


590 DATA 0,0,0,0,0,0,3,3,3353 393925353939 3 93 
,3,0,0,0 

608 DATA 0,0,0,0,0,0,0,0,3,253535252 5252525250 9@ 
,8,0,0,0 

618 DATA 0,0,0,0,0,0,0,0,1,1,1,23252525252925@3@ 
,8,0,8,0 

620 DATA 0,0,0,0,0,0,0,0,0,1,1,1,2525252925@5@ 30 
,8,0,0,0 

30 DATA G,0,0,0,0,0,0,0,0,1,1,1,2,2,2,200,0,0 
,2,8,0,0 

6840 DATA 0,0,0,0,0,0,0,0,0,0,1,1,1,2,2,0,0,0,0,0 
,0,0,8,0 

650 


66@ LOCATE 19,10 
678 hau=28:lar=14 
680 POKE %45A0,0:POKE %&4S5A1,%C0: ‘param. adresse 


ecran 

6970 POKE &45A7 ,hau: ” Faram hauteur 

700 POKE &4546,1ar:° param largeur 

710 POKE %&459C,0G:POKE &459D,%30: ‘adresse buffer 
dest. 

72@ CALL &4500: compactage 


738 PRINT'"Une touche pour ":PRINT'"continuer ..." 
74@ WHILE INKEY#="":WEND 
750 
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768 ‘Affichage buffer compacte 


770 

78@ MODE 2:INK 1,24:ad-%5000: debut buf 
fer 

790 FOR i=1 TO hau:” nombre d 
e lignes 

80Q@ FRINT HEX#(PEEK (AD) ,2)":"33:" octet de 
codage 

810@ IF (PEEK (ad) AND 128)=-128 THEN 9i@: ‘si oui co 
mpacte 


20 
835Q ‘affichage ligne non compactee 
840 
85Q AD=AD+1:FOR j=1 TO PEEK (ad-1):° nombre d° 
octets 
86Q PRINT HEX#(PEEK (ad) ,2)"-";:ad=ad+i 
87Q NEXT:PRINT:GOTO 948 


880 

9890 ‘affichage ligne compactee 

900 

910 ad=ad+i:FOR j=1 TO PEEK(ad-1)-128° nombre d° 
octets 


920 PRINT HEX#(PEEK (ad) ,2) "+"HEX#(PEEK(ad+1i),2)" 


L] 
950 ad=ad+2:NEXT:PRINT 
940 NEXT:FRINT "BUFFER COMPACTE : "AD-&5088: PRINT 
"DESSIN ORIGINAL :"hauxlar 
950 SAVE"dessins.cmp",b,%53000,ad-%:000 


Il dessine une planète dotée d'un anneau, et compacte cet objet en 
mémoire. Les données affichées ensuite sont celles de l'objet compacté. Le 
premier octet de chaque ligne est l'octet préliminaire. S'il est supérieur à 
$80 compris, la ligne est compactée ; sont alors affichés les couples 
d'octets de la ligne. Sinon, tous les octets sont présentés en chaîne, la ligne 
n'étant pas compactée. Enfin, le programme sauve l'objet compacté dans 
le fichier DESSINS.CMP et affiche le gain d'octets obtenu. 


DÉCOMPACTAGE 


Il nous faut maintenant réaliser la routine inverse, qui affichera un objet 
d'après son image compactée en mémoire. 


La logique de la procédure est plus simple que la précédente. En effet, au 
début de la ligne, nous savons si celle-ci est compactée ou non. Ce n'était 
pas le cas : nous ne savions pas, lors du codage, si le compactage d’une 
ligne était intéressant ou non, et il fallait le tester. lci, la démarche à suivre 
est très compréhensible : 

Q initialiser le pointeur écran (destination) ; 
[ initialiser le pointeur objet (origine) ; 
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CO pour HAU lignes : 

e si bit 7 de l'octet préliminaire =1 : 
— remettre ce bit à zéro pour voir le nombre de couples à lire ; 
— pour ce nombre de couples : 


nombre d'octets=1" octet du couple ; 
contenu=2° octet du couple ; 

copier N fois le contenu dans l'écran ; 
passer au couple suivant de l'origine ; 


— fin boucle sur nombre de couples. 
e sinon, bit7=0, la ligne n'est pas compactée : 
— nombre d'octets=octet préliminaire ; 
— transférer directement ces octets à l'écran; 
e passer à la ligne suivante de l'écran. 
© fin boucle sur les lignes. 


Le programme assembleur 5.2 est la traduction en langage machine de 
cet algorithme simple. Sa compréhension ne pose pas de problème 
particulier. 


4600 
4685 
4606 


460A 
460D 


ia 
4612 


244146 
224546 
ED5B4546 


3A4746 
47 


1A 
CB7F 


18 ; 

28 ;Programne de decompactage graphique 

38 sutilise le format genere par progranse compacteur 
40 ;progranme 5.2 


30 ; 

1] ORG +#4690 
70 ; 

80 ; ENTREES : 


90 ; TABLE = table a afficher 
108 ; ECRAN = debut ou l’on doit afficher 
119 ; HAU = noabre de lignes du dessin 


128 ; 

134 ENTREE: LD HL, (ECRAN) 

149 LD (LIGNE), HL 

150 LD DE, (TABLE) 

168 ; 

170 ;aise en place boucle ligne 

180 ; 

190 LD A, (HAU) 

208 LD B,A snoabre de lignes 

218 ; 

226 BOU1: PUSH BC ;sauve coapteur de lignes 
230 LD A,(DE) 

240 BIT 7,4 scompactee ? 

258 JP NZ,DECOW ;il faut decompacter la ligne 
248 


; 
270 ; si on arrive ici ler octet <> @@ donc table non compactee 
280 ; on fait donc un transfert direct d'octets 
298 ; 
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snombre octets a copier 
spasse dans BC 


3DE sur les donnees de la ligne 
spour utiliser LDIR 

stransfert du bloc de donnees 
3RAJ DE=pointeur buffer 

ssuite boucle lignes 


snosbre de couple de valeurs 
scompteur DJN7 
savancer sur bloc de donnees 


sSauver compteur lectures 
srepeat 
sdans B pour djnz 


; 

;valeur de l'octet 

savance pour donnee suivante 
scopie sur l'ecran 


srecupere compteur lectures 
;suite de la ligne 
sfin du travail 


998 ; sous prog de sortie qui recupere les parametres et qui rend 


srecupere conpteur de lignes 
retour debut ligne ecran 
passe ligne en dessous 


ligne suivante 


4615 380 NOCOMP: 
4615 4F 310 LD CA 
Abib GED 320 LD B,8 
338 ;HL pointe deja sur l'ecran 
4618 13 340 INC DE 
4619 EB 350 EX DE,HL 
461A EDBG 360 LDIR 
46iC EB 370 EX DE,HL 
461D C3344 380 JP  FINLIN 
390 ; 
408 ; sous programme traitant les donnees compactees 
410 ; 
4620 CBBF 420 DECOMW: RES 7,A 
4622 47 438 LD B,A 
4625 13 440 INC DE 
4024 450 BOU2: 
4624 C5 aa PUSH BC 
4625 1A 470 LD A,(DE) 
426 47 490 LD B,A 
4627 13 498 INC DE 
4628 A 500 LD A,(DE) 
4629 13 518 INC DE 
4624 77 920 COPIE: LD (HL),A 
4828 23 330 INC HL 
4b2C 10FC 540 DJNZ COPIE 
AE Ci 050 POP BC 
462F  10F3 560 DJNZ BOU2 
4651 C33446 ü78 JF FINLIN 
580 ; 
608 ; la main a l'appelant 
bi ; 
454 628 FINLIN: 
4b34 C1 630 POP BC 
4655 2A4546 640 LD HL,(LIGNE) 
4638 CD26BC 650 CALL #BC26 
465B 224346 660 LD (LIGNE) ,HL 
ASE 1QCE 67 DJNZ BOUI 
68 ; 
464Q C9 690 RET 
708 ; 
710 ;variables du programme 
720 ; 
4b4i 0000 730 ECRAN: DEFH @ 
4645 0008 740 LIGNE: DEFW @ 
Ab45 0200 750 TABLE: DEFW @ 
4647 QG 768 HAU:  DEFB 


Pass 2 errors: 00 
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Seule l'instruction “RES 7,A" n'a pas encore été décrite. Son rôle est de 
remettre à zéro un bit. lei, il s’agit du bit 7 (le plus à gauche) du registre A. 


Enfin, ultime remarque, vous pouvez constater que la routine utilise très 
peu de variables système. Cela est dû à la simplicité de l'algorithme : il y a 
suffisamment peu de données à manipuler pour qu'aucun conflit de 
registre ne se pose. 


Le programme Basic 5.2 propose la mise en œuvre de la routine. ll utilise 
le fichier DESSINS.CMP créé par le programme 5.1. Ce fichier contient 
l’image compactée de la planète. 


1Q “HHHER HEURE EURO E 

28 ‘** Programme 5.2 +#*# 

SR HAINE DEEE EEE 

48 ” 

36 ‘decompactage d'un objet graphique 

68 ‘programme 5.2 

78 ‘ 

99 MEMORY &2FFF 

90 ad=-%448088:1ign-2008 

108 ctrl=G:READ c#:1F c#="fin" THEN 249 

11@ FOR i=1 TO LEN(c#) STEF 2 

128 c=VAL("&"+MIDE (CE ,i,2)) 

158 PFOKE ad,c:ad=adti:ctrl=ctrl+c 

148 NEXT:READ teste:1F teste<>ctrl THEN PRINT'"'Er 
reur DATA ligne"lign:END 

158 lign-lign+10:G0T0O 190 

160 ‘ 

170 DATA 2A4148224346ED5B45465A474847CS51A, 13508 

189 DATA CB7FC220464F0608iZEBEDBOEEC33446, 1930 

198 DATA CBBF4715C51A47131h1377231@FCC11@, 1473 

208 DATA F3053446C12A4346CD26B02243461Q0CE, 1756 

210 DATA C9, 201 

228 DATA "fin" 

230 ‘ 

248 ‘ 

2530 MODE G: MEMORY &2FFF:LOAD'"dessins.cmp",%7:000 

268 hau=?28 

276 INK G,G:INK 1,1@: INK 2,15:1INK 5,20:INK 4,7 

280 POKE &4645,0:POKE %4646,%30: ‘buffer origine 

298 PCKE %4647,hau: nombre de ligne 
s 

300 i-=0:ac-49232: WHILE i<80:ad-=-ad-i:i=it+ti 

318 POKE &4641,ad-256#INT(ad/256):POKE %4642,INT 
(ad/256) 
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320 FOR k=1 TO ZG:NEXT 

330 CALL %4600: affichage decom 
pacte 

340 WEND 

350 LOCATE 1,15 


Bien évidemment, la routine 5.2 ainsi réalisée ne peut traiter que des 
images compactées par la routine 5.1. Une remarque s'impose : son 
efficacité est proportionnelle à la quantité de motifs horizontaux uniformes 
présents dans le dessin. Si celui-ci comporte principalement des motifs 
verticaux, il vaut mieux le coder simplement (avec les routines du chapitre 
4), ou, mieux, réaliser un compacteur travaillant par colonne plutôt que par 
ligne. Ce n'est pas excessivement compliqué si vous avez correctement 
assimilé le fonctionnement de ce chapitre : seule la progression sur l'écran 
change, les principes de codage et de traitement restant valables. Cela 
constitue un excellent exercice que nous vous laisserons, pour une fois, 
affronter. 


DÉPLACEMENTS PAR | 6 
CALCUL D'ADRESSES 
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GESTION DU JOYSTICK 


Lors des deux chapitres précédents, vous avez pu remarquer que le 
déplacement des objets s’obtenait facilement en modifiant l'adresse de 
localisation sur l'écran. En l'occurrence, en ajoutant 1, il se produisait un 
mouvement vers la droite, et vers la gauche pour —1. 


Les déplacements horizontaux sont simples, mais tout change lorsque 
nous nous penchons sur le problème des mouvements verticaux. En effet, 
le déplacement d'une ligne vers le haut ou vers le bas n'est pas immédiat. 
La structure de la mémoire écran s'oppose à tout calcul simple. Nous allons 
donc réaliser une routine qui, suivant l'état du joystick, modifiera correcte- 
ment l'adresse de destination en mémoire écran. 


Examinons tout d'abord la gestion du joystick. Celle-ci est grandement 
facilitée par la présence d'une routine système dont le vecteur est placé en 
$BB24. L'appel de cette routine range l’état du Joystick O0 dans le registre À, 
de la façon suivante : bit 3 positionné à 1 si action du joueur vers la droite, 
bit 2 si vers la gauche, bit 1 si vers le bas, et bit O si vers le haut. Notons 
également les bits 4 et 5 restituant de façon similaire l'état des deux 
boutons de tir. 


Les combinaisons de bits sont bien sûr possibles : si le mouvement 
choisi est en diagonale vers la gauche en haut, les bits O et 2 seront tous 
deux positionnés. On obtient donc 16 valeurs grâce à ces quatre bits, 
provoquant un mouvement bien précis. Le tableau ci-dessous résume ces 
valeurs. 






















b3b2b1b0 DECIES Mouvement correspondant 
0000 L'orsoo —— 

0001 1/$01 vers haut 

0010 2/$02 vers bas 

0011 3/$03 *+x| —— 

0100 4/$04 vers gauche 

0101 5/$05 vers gauche+haut  (DIAG1) 
0110 6/$06 vers gauche+bas  (DIAG2) 
0111 7/$07 *x | vers gauche 

1000 8/$08 vers droite 

1001 9/$09 vers droite+haut (DIAG3) 
1010 10/$0A vers droite+bas (DIAG4) 
1011 11/$0B + | vers droite 

1100 12/$0C  * == 

1101 13/$0D + | vers haut 

1110 14/$0E + | vers bas 

1111 15/$0F  * —— 
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Toutefois, certaines valeurs ne correspondent à aucune réalité physi- 
que : pour produire par exemple la valeur 7, il faudrait placer le manche à 
la fois vers la gauche, le haut et le bas. Les valeurs ainsi inutiles sont 
marquées d'une étoile dans le tableau. 


Il'est cependant plus simple de traiter l’état du joystick par l'intermédiaire 
d'une table contenant ces 16 valeurs. En effet, on peut placer dans une 
table une adresse de routine associée à chaque code joystick. Les routines 


seraient les suivantes : 





Routine 


NOP 
HAUT 
BAS 
NOP 
GAUCHE 
DIAG1 
DIAG2 
GAUCHE 
DROITE 
DIAG3 
DIAG4 
DROITE 
NOP 
GAUCHE 
DROITE 
NOP 





© © “J O O1 BR À N = © 













Mouvement correspondant 





routine ne faisant rien du tout 
déplacement vers le haut 
déplacement vers le bas 

rien du tout 

vers la gauche 

vers la gauche et en haut 
vers la gauche et en bas 

vers la gauche 

vers la droite 

vers-la droite et en haut 

vers la droite et en bas 

vers la droite 

rien 
vers 
vers 
rien 














la 
la 


gauche 
droite 








Si nous plaçons les adresses de chacune de ces routines dans la table 
(2 octets par adresse), l'adresse écran originale dans HL (à modifier si le 
joystick indique un déplacement) et le code joystick dans A, nous pouvons 
sauter à la routine voulue par la séquence suivante : 


AND $OF 


RLA 


: ceci permet de ne garder que les quatre bits de 


droite du code joystick, et d'obtenir la valeur 
entre 0 et 15; 


: ceci décale A vers la gauche d'un bit, recopiant 


le Carry dans le bit 0. Ce dernier vaut zéro car le 
AND précédent positionne toujours le Carry à 
zéro. RLA est donc alors équivalent à une multi- 
plication par 2 du registre A. Ceci donne la 
position relative de l'adresse de notre routine 
par rapport au premier octet de la table. Si le 
code joystick était 0, nous obtenons 0. Si c'était 
3, le résultat est 6 (l'adresse à récupérer occupe 
alors les 6° et 7° octets de la table) ; 
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LD E,A 

LD D,0 : ceci place le résultat précédent dans le registre 
DE afin de pouvoir l'additionner facilement à 
l'adresse de début de la table ; 

LD IXTABLE  : on place dans le registre 16 bits IX l'adresse de 
début de la table ; 

ADD IX,DE : on obtient ici l'adresse où se situe l'adresse de la 
routine voulue. Il faut encore la récupérer ; 


LD E,(IX+0) 

LD D,(IX+1) _: ce qui est fait : l'adresse de la routine se trouve 
dans DE ; 

PUSH DE 

POP IX : on la passe à IX (car l'instruction JP (DE) n'existe 
pas) ; 

JP (IX) : et on saute enfin à la routine, l'adresse écran 


originale étant toujours dans HL. 
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Il nous reste enfin à programmer chacune des routines de mouvement. 
Les diagonales sont les plus simples, par exemple, DIAG1 sera constituée 
comme suit : 


DIAG1: CALL GAUCHE 
JP HAUT 


Il s’agit d'une simple décomposition en deux mouvements linéaires. 


Les déplacements horizontaux ne posent pas de problèmes non plus, 
excepté celui des bords de l'écran. En effet, un déplacement vers la gauche 
à partir du bord gauche place la nouvelle position à droite, 8 lignes plus 
haut. || n'existe malheureusement pas de moyen simple d'éviter cela, sinon 
en mémorisant la position horizontale en plus de la position écran. Il faut 
alors vérifier que la position reste entre 0 et 79 (ou $00 et $4F). Si ce n'est 
pas le cas, on peut ou bien inhiber le mouvement (les bords horizontaux 
sont infranchissables, ou bien intervertir la position (les bords sont 
cycliques). 


Ce test est à effectuer en plus dans les routines GAUCHE et DROITE. 
Nous n'allons pas les effectuer. En revanche, nous reviendrons sur le 
problème lors du chapitre 8, lorsque nous mettrons en place un système de 
coordonnées. GAUCHE et DROITE sont donc simplement constitués d'une 
instruction DEC HL ou INC HL suivie d'un RET. 
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Les choses perdent leur aspect simpliste pour HAUT et BAS. La solution 
simple est d'appeler les routines systèmes $BC26 et $BC29. Une autre 
solution, plus rapide et plus élégante, est d'étudier la structure écran pour 
trouver un équivalent. Un déplacement vers le bas est assez simple, nous 
l'avons d'ailleurs déjà évoqué. Il suffit en effet d'ajouter $800 à l'adresse. Si 
l'addition 16 bits provoque un Carry, alors il faut rajouter $CO50. La 
programmation est la suivante, HL contenant l'adresse : 


HAUT : LD DE, $800 
ADD HL,DE : première addition 


RET NC : pas de Carry: le travail est fini 
LD  DE,$C050 

ADD HL,DE : seconde addition 

RET 


L'explication de ce calcul est plus simple qu'il n'y paraît. Le positionne- 
ment du Carry se produit lorsque le résultat de l'addition dépasse $FFFF, 
c'est-à-dire le bout de la mémoire écran. C'est justement ce qui permet de 
distinguer les sauts de ligne spéciaux des autres. Et dans ce cas, il suffit 
d'ajouter $C050 pour obtenir la bonne adresse. 


Pour un déplacement vers le bas, la logique est la même, bien que la 
programmation soit un petit peu moins simple. Il suffit de retrancher $800. 
Si l'adresse obtenue dépasse le début de la mémoire écran (c'est-à-dire 
qu'elle se situe avant celui-ci), alors on retranche également $C050. C'est 
exactement l'opération inverse de la précédente. Mais un problème se 
pose : le début de l'écran se situe en $C000. Pour savoir si l'adresse 
obtenue se situe avant ou après, il est donc impossible de tester le Carry. 
Celui-ci ne sera pas spécialement positionné si l'addition produit un 
nombre entre $0000 et $BFFF. Par contre, nous pouvons tester le poids fort 
de l'adresse. S'il est compris entre $CO et $FF (bornes incluses), alors 
l'adresse est toujours dans l'écran. Sinon, il faut retrancher $C050. 


Par commodité, nous n’allons pas utiliser la soustraction 16 bits. En effet, 
seul SBC existe, et il faut donc remettre le Carry à zéro avant chaque 
soustraction. Nous pouvons par contre ajouter le complément à 1, ce qui 
revient au même. Voici le programme correspondant : 


BAS : LD  DE,$F800 

ADD HL,DE : équivaut à soustraire $800 

LD AH : on place le poids fort dans A 

CP  $CO : comparer 

RET NC  : le poids fort est supérieur ou égal à $C0 et 
inférieur à $FF, donc l'adresse est bien dans 
l'écran, le travail est fini. 

LD  DE,$3BFO 

ADD HL,DE : équivaut à soustraire $C050. 

RET 
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CONSÉQUENCES DE LA STRUCTURE 


DE LA MÉMOIRE ÉCRAN 


Nous possédons tous les éléments pour réaliser la routine complète. Le 
programme 6.1 en assembleur les résume. Le programme 6.2 en Basic est 
une application de cette routine, basée sur le programme 4.4 et permettant 
le déplacement, grâce au joystick, du petit module extraterrestre du 
chapitre 4. Tous les mouvements sont autorisés, et cela sans gestion 
complexe de POKESs au niveau du Basic. Notez que ce programme utilise le 
fichier DESSINS.BIN créé au chapitre 4 (par le programme 4.3), ainsi que la 
routine 4.1 de restitution d'objet. 


45AQ 


4c08 


4C85 
4C0b 
4Cu9 
ACQC 


aC8F 
4C18 
4c11 


ACiS 
4017 


4019 
4C1C 


ACIF 
4020 
422 


CD24BB 
2AAG4S 
CDGDAC 
22A045 
C9 


E60F 
17 
SF 
1609 


DD21244C 
DD19 


DDSEGA 
DD5681 


D5 
DDE1 
DDE9 


18 ; 


28 ;Prograane de deplacement par joystick 
30 ;programme 6.1 


40 ;Entree: 


 ; 

68 ; 

70 ; 

88 ECRAN: 
7 ; 

180 

118 

120 

13 

149 

150 

16 ; 

170 DEPLAC: 
188 

190 

200 


219 
220 


230 
240 


250 
268 
278 
280 ; 


la variable ECRAN contient l'adresse ecran 
a recalculer en fonction de l'etat du joystick 


EQU #45A8 


ORG #4C08 
CALL #BB24 


LD HL, (ECRAN) 


CALL DEPLAC 


LD (ECRAN),HL 


LD E,A 
D,0 


LD IX,TABLE 
ADD IX,DE 


LD E,(IX#0) 
LD D,(IX#i) 


PUSH DE 
POP IX 
JP (IX) 


298 ;1a table de saut 


39 ; 


get joystick state 


sgarde 4 bits de droite 
saultiplie par deux 


stransfert de l'offset 16 bits 
dans DE 


scalcul localisation de 
l'adresse de saut 


srecupere adresse de saut 
dans DE 


stransfert dans IX 
set saut a la routine 


4C40 
4C42 


4044 
4047 
aC48 
4C49 
aC4C 
4C4) 


405 


4056 
4059 
4C5A 


AC5B 
ACSC 


ACSE 


405 
4062 


AC65 
4C68 


CD5B4C 
C34E4C 


CDSB4C 
C3444C 


318 TABLE: 
320 


410 
420 
430 
440 
450 
460 
470 ; 
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DEFW NOP 
DEFW HAUT 
DEFW BAS 
DEFW NOP 
DEFH GAUCHE 
DEFW DIAGI 
DEFW DIAG2 
DEFW GAUCHE 
DEFW DROITE 
DEFW DIAG3 
DEFH DIAG4 
DEFW DROITE 
DEFW NOP 
DEFW HAUT 
DEF BAS 
DEFW NOP 


480 ;les quatres deplacements elementaires 


490 ; 
509 BAS: 
018 

Je 

530 

348 

56 
68 ; 
978 HAUT: 
500 

970 

628 

6ig 

628 

650 

648 
658 ; 
668 GAUCHE: 
670 

680 ; 

690 DROITE: 
700 

718 ; 


LD DE, 4800 
ADD HL,DE 
RET NC 

LD DE,#C050 
ADD HL,DE 
RET 


stoujours dans l'ecran 


LD DE,#FEU 
ADD HL,DE 
LD AH 

CP  4C0 
RET NC 

LD  DE,#3FB0 
ADD 
RET 


stoujours dans l'ecran 


DEC HL 
RET 


IN H 
RET 


728 ;les quatres diagonales 


739 ; 

748 DIAG1: 
758 

768 ; 

776 DIAG2: 
788 

79 ; 


CALL GAUCHE 
JP HAUT 


CALL GAUCHE 
JP BAS 
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4C6B CDS5D4C 880 DIAG3: CALL DROITE 


AC4E CSAE4C 810 JP HAUT 
820 ; 
4C71 CDSD4C 630 DIAG4: CALL DROITE 
4C74 C3444C 40 JP BAS 
858 ; 
860 ;RIEN ! 
870 ; 
4C77 C9 88 NOP:  RET 


Pass 2? errors: 00 


L PIERRE REDON JE EEE EX KE EX 
286 ‘#* Frogramme 6.2  *+% 
SO HR HN IN EN EN EEE X 
40 


90 ‘deplacement d'un objet en plusieurs phases 

&6G ‘d'apres le codage effectue par programme 4.35 

78 ‘aux adresses #$2fff et suite. 

8Q ‘application des routines 6.1 et 4.1 

90 ‘ 

1800 MEMORY R2FFF 

119 ad=%4700:1ign-200 

129 ctrl=G:READ c#:I1F c#="fin" THEN 235 

13Q FOR i=1 TO LEN(cC#) STEP 2 

149 c=VAL("&"+MIDE(CH,i,2)) 

158 POKHE ad,c:ad=sd+ti:ctri=ctri+c 

168 NEXT:READ teste:iF teste<:ctrl THEN PRINT"'Er 
reur DATA ligne"lign:END 

17@ lign=-lign+i@:G0T0 128 

160 ‘ 

198 DATA EDSBAGA4S2A9CAS SARA 74547050 

208 DAtA 4F06G8EDBQEBE1CDZSBCERCI 1 

216 DATA "fin" 


72723 
Led 


AAGAS, 18972 


SZ 
BEDC9, 2271 


250 ad=%4CB0:1ign-310 

240 ctrlil=B:READ ct:1F c#="#fin" THEN 468 

250 FOR i=1 TO LEN(C#) STEF 2 

268 c=VAL("&"+MIDE(CE,1,2)) 

279 PFOKE ad,c:ad=adti:ctrli=ctri+e 

290 NEXT:READ teste:IF teste<:ctrl THEN FRINT'Er 
reur DATA ligne”"iign:END 

299 lign=lignti@:GO0OTG 2498 

568 

518 DATA CDZA4BS2AABGASCOEDACE2A84507E 68717, 1 

3298 DATA S5F16890DD21244CDD17DDSE89DD5681D5, 1 


ñ 


2 
Es 
L 
Le) 


cn LC 


ar À 
{ 
= 
le) 
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330 DATA DDE1DDE9774C4E4C4440774CSB4CSF4C, 1926 

34Q DATA 6S4CSB4CSD4C6B4C714CSD4C774C4E4C, 1403 

3930 DATA 444C0774C1180@80819D011S500019C91120, 1129 

36@ DATA F8197CFECQDG11B83F19092B0923C9CD, 2718 

37@ DATA SB4CC34E4CCDSB4CCS5444CCDSD4CC34E, 1874 

380 DATA 4CCDSD4CC3S4440C9, 990 

398 DATA "fin" 

408 MODE & 

41@ LOAD'image.bin",%C@@@: ‘chargement du decor, 
optionnel 

420 FOR I-@ TO 15 

438 INK I,ASC(MID#("ACLFSPGJOLJXSDZO",1+1,1))-65 

44@ “INK I,ASC{MIDE("AMTOSVSJREJXSRYQ",1+1,1))-6 
S pour monochrome 

45@ NEXT 

468 ecr=50052 

478 POKRE &4SAQ,ecr-25S6%INT (ecr/256):FOKE &45A1, 1 
NT (ecr/256) 


488 PGKE &456,7:° largeur en oc 
tets 
4970 POKE %4587,10: hauteur en n 


ombre de lignes 

500 LOÂD'"dessins",2:000 

310 FOR phase-=i TC 4 

528 buf (phase)-=2&5:880+{(phase-i)+(7x1im) 

339 NEXT 

548 ” 

956 FOR phase=i TO 4 

560 POFE %&459C,buf (phase) -256+1INT(buf (phase) /254 
):FOKE %459D,INT (buf (phase) /256) 

578 FOR k=i TO 4 

508 CALL &4C06 

9378 CALL &4700 

60G FOR i=1 TG I1G:NEXT 

Gi@ NEXT 

628 NEXT 

50 GOTO 5594 


Modifications de 6.2 pour 6.2b 


4688 ecr-508357 


480 POKE %456,13: largeur en o 
ctets 
490 POKRE %44547,33:° hauteur en n 


ombre de lignes 
508 LOAD'dessinsE",2:000 
J29 ouf{phase)-83008+{phase-1)x(123#37) 
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Modifications de 6.2 pour 6.2c 


488 ecr-=57104 


480 POKE %456,21:"° largeur en © 
ctets 
490 POKE &45A7,19:° hauteur en n 


ombre de lignes 
S08 LOAD'"'dessinsC",2:000 
320 buf (phase) =8&5:000+(phase-1)x(21#19) 


Vous remarquerez un défaut du programme : lorsque le module dis- 
paraît ou apparaît par le haut de l'écran, il laisse une trace de son passage. 
D'autre part, les deux lignes extrêmes (le haut de l'écran et le bas) ne 
semblent pas correspondre. Ceci est dû aux 384 octets inutilisés de la 
mémoire écran. En effet, la dernière ligne de l’écran est située à l'adresse 
$FF80. Si nous descendons d’une ligne par notre routine de calcul, nous 
obtenons $FF80+$0800 soit $0780, avec positionnement du Carry. L'addi- 
tion supplémentaire de $C050 donne finalement $C7D0. Or, ce n'est pas du 
tout l'adresse du début de la première ligne. Pour l'expliquer il faut se 
pencher sur les octets inemployés de la mémoire écran. En effet, celle-ci 
contient 200 lignes de 80 octets. Nous avons donc 16 000 octets utilisés 
pour l'écran. Mais 16 Ko forment 16 384 octets. Il reste donc 384 octets 
inutilisés. Si l'on respecte la logique de l’entrelacement des lignes, ces 
384 octets correspondent, par blocs de 48 octets, à une 201°, 202: et jusqu'à 
une 208: ligne situées hors de l'écran. Mais ces pseudo-lignes ne contenant 
que 48 octets faussent les calculs si l'on s'y aventure. Une vraie ligne 
contient 80 octets. Voilà pourquoi un objet partant vers le bas de l’écran 
disparaît sur 8 lignes imaginaires, avant de réapparaître en haut de l'écran, 
un peu plus à gauche. C'est aussi la raison pour laquelle il laisse un trait 
lors de son passage. 


Ces défauts ne sont pas faciles à corriger pour l'instant. Nous en 
Vviendrons facilement à bout dans le chapitre 8 en utilisant un système de 
coordonnées et en interdisant les sorties d'écran. 
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PROBLÈMES DE DÉPLACEMENT 


Toutes les routines que nous avons réalisées jusqu'à présent permettent 
d'afficher des objets sans tenir compte de ce qui se trouve déjà sur l'écran. 
Cela interdit la gestion d'un décor intégré à l'action. Il faut donc revoir 
intégralement le principe d'affichage si nous voulons implémenter une 
telle possibilité. : 


Plusieurs solutions s'offrent au programmeur désirant intégrer un décor. 
Nous verrons dans le chapitre 8 comment interdire aux objets mobiles 
l'accès à une zone de l'écran. On peut utiliser cette solution pour placer un 
décor sur l'écran et interdire tout déplacement sur la surface qu'il occupe. 
De cette façon, tout objet pourra se déplacer simplement (avec les routines 
du chapitre 4). Mais la partie opérationnelle de l'écran devra être intégrale- 
ment couleur de fond. Les collisions entre objets risquent également de 
poser quelques problèmes. La seule solution semble donc d'autoriser les 
déplacements sur le fond de l'écran. 


Le plus gros problème posé est alors le suivant : sachant que l'objet 
occupe un rectangle sur l'écran et qu'il va écraser totalement le contenu de 
ce rectangle, comment faire pour le restituer lorsque l'objet se déplacera à 
nouveau ? 


ECRAN 


OBJET 





ZONE ECRASEE 
PAR L'OBJET 


Schéma 7.1 Problème d'écrasement de décor. 


Il existe un grand nombre de solutions, et nous allons en étudier deux : le 
mode XOR et la gestion de transparence. 
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LE MODE XOR 


XOR binaire 


Le mode XOR est une astuce très utilisée depuis quelque temps dans les 
jeux. Il allie une grande facilité d'utilisation à une rapidité de traitement 
inégalable. Mais, bien évidemment, il possède un gros défaut : il ne 
conserve pas les couleurs originales de l'objet affiché et du décor lorsque 
ceux-ci se superposent. 


Le principe de fonctionnement du mode XOR est basé sur l'opération 
binaire du même nom. Le résultat d’un XOR sur deux bits est le suivant : si 
les deux bits sont identiques, on obtient 0. S'ils sont différents, le résultat 
est 1. Cette opération a une particularité : (A XOR B) XOR B donne A. En 
effet, si le bit original est 0, XOR 0 ne change pas son état et XOR 1 
l'inverse. Un second XOR redonne 0. Si le bit original est 1, deux XOR 
successifs donnent également 1. 


Cette particularité est le fondement du mode graphique XOR. Chaque 
octet de l'objet à placer est composé auparavant avec le contenu de l'écran 
qu'il va écraser. Puis, lorsqu'un déplacement intervient, on redessine de 
nouveau l'objet de la même manière avant de le déplacer. Cela constitue, 
sur 8 bits, l'opération (ECRAN XOR OBJET) XOR OBJET, dont le résultat est 
ECRAN. Sans aucune sauvegarde de l'écran, nous récupérons donc le 
contenu initial de celui-ci, simplement en dessinant deux fois l’objet à son 
emplacement. 


La routine de dessin en mode XOR sera quasiment identique à celle du 
chapitre 4, excepté la copie d'une ligne qui se fera octet par octet, en 
composant chacun d'entre eux avec le contenu de l'écran par l'opération 
XOR. 


Restitution d'objet en mode XOR 


Le programme assembleur 7.1 est donc une imitation du 4.1; seules 
quelques lignes changent. 


14 ; 

28 ;programne de copie d'objet 

38 :RAM->Ecran, node XDR 

48 ;programse 7.1 

58 ; 
4980 60 

78 ; 


ORG #4808 
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88 :ENTREE: (ECRAN) adresse du coin sup.gauche 


9% ; (BUF) adresse de l'image 
108 ; (LAR)  noabre d'octets par ligne 
119 ; (HAU)  nosbre de lignes 
120 ; 
459C 130 BUF:  EQU #459C 
4548 148 ECRAN: EQU +#4540 
4546 150 LAR:  EQU #45A6 
4547 168 HAU:  EQU +#4547 
170 ; 
4808 2AAG45 189 LD HL,(ECRAN) 
4905 ED5B9C45 190 LD DE,(BUF) 
4807 3AA745 200 LD A, CHAU) 
4804 47 218 LD BA ;compteur de lignes 
220 ; 
480B C5 238 NEULIN: PUSH BC ssauvegar de compteur 
480C ES 248 PUSH HL ;Sauvegarde adresse ligne 
490D 3AA6AS 250 LD A,(LAR) 
4818 47 260 LD B,A ;compteur du nombre d'octets 
4811 IA 270 NEWOCT: LD A,(DE) srecupere octet dessin 
4812 AE 289 XOR (HL) sintersection avec ecran 
4813 77 290 LD (HL),A set positionnement sur ]'ecran 
4814 23 300 INC HL 
4915 13 318 INC DE 
4916 10F9 320 DJNZ NEWOCT 
4918 Eli 350 POP HL sancien debut ligne 
4819 CD26BC 348 CALL #BC26 sdescend d'une ligne 
48iC Ci 350 POP BC 
491D 18 368 DJNZ NEWLIN ligne suivante 
4giF C9 370 RET 


Pass 2 errors: 09 


L'instruction LDIR a notamment disparu au profit d’une boucle:s'effec- 
tuant LAR fois. Notez également l’inversion des registres DE et HL pour le 
travail : en effet, avec LDIR, DE pointe la destination et il était donc 
intéressant de placer le pointeur écran dans ce registre. lci, il n’en est plus 
question, nous pouvons donc inverser les deux pointeurs : HL pour l'écran 
et DE pour l'objet. Cela nous permet de réaliser le XOR de la façon 
suivante : 


LD A, (DE): chargement de l’octet dessin dans le registre À ; 
XOR (HL) : XOR avec l'octet de l'écran; 
LD  (HL),A : et remise en place du résultat sur l'écran. 


Nous pouvions bien entendu garder l'attribution originale des registres : 
dans ce cas, seul “LD (HL),A" se transformait en “LD (DE),A" pour envoyer 
l'octet à l'écran. Mais cela aurait posé un problème pour le passage à la 
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ligne suivante par la routine système +BC26. Cette routine travaille en effet 
sur HL et non DE ; il aurait donc fallu recourir à un “EX DE,HL" après cet 
appel de routine, exactement comme au chapitre 4. Utiliser HL pour le 
pointeur écran nous permet d'éviter cette instruction perturbatrice. 


Le programme Basic 7.1 est une illustration de la routine. || déplace notre 
petit module extraterrestre en mode XOR. 


1Q HN EEE JE NEED NXE 

20 ‘**x Programme 7.1 ++ 

SD HRMIENHHONNENENEEE EE NNEOXE 

48 

50 ‘deplacement d'un objet en plusieurs phases e 

n mode XOR 

68 

78 MEMORY %2FFF:LOAD"progé. 1ob": "voir añnexe 6 

88 ad-%4808:l1ign-16@ 

90 ctrl=B:READ c#:1F c$="#fin" THEN 200 

196 FOR i=1 TO LEN(c#) STEP 2 

11@ c=VAL("&"+MID#(c#,1,2)) 

126 POKE ad,c:ad=adti:sctrl=ctrl+c 

3@ NEXT:READ teste:IF teste<>ctrl THEN PRINT'"Er 
reur DATA ligne"lign:END 

14Q lign-=lign+1i@:GO0OTO 90 

150 

168 DATA 2ZAAGASEDSB9CA4S53AA74547CSESSAA6GASA471AAE7 
7, 2298 

17@ DATA 23131GF9E1CD26BCC11@ECC9, 1621 

188 DATA "fin" 

190 

2808 MODE @ 

218 LOAD'image.bin",4&C@0@08: ‘chargement du decor, 
optionnel 

220 FOR I1=@ TO 15 

230 INK I1,ASC(MID# ("ACLFSPGJOLCJXSDZQO",1+1,1))-65 

248 ‘INK J1,ASC(MID#("AMTOSVSJREJXSRYO" ,1+1,1))-6 
9 pour monochrome 

250 NEXT 

260 ecr=500327 

278 POKE %45A8,ecr-256xINT(ecr/256):POKE %&45A1,I 
NT (ecr/256) 


290 POKE &4546,7:° largeur en oc 
tets 
298 POKE &45A7,10: ° hauteur en n 


ombre de lignes 
500 LOAD'"dessins",23:000 
310 FOR phase=i TO 6 
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520 buf (phase) =&3000+(phase-1)*x(7*10) 

330 NEXT 

340 

350 FOR phase=i TO 6 

360 POKE %459C,buf (phase) -256%INT (buf (phase) /254 
):POKE &459D, INT (buf (phase) /256) 

3570 FOR k=1 TO 4 

380 CALL &4C00 

390 CALL &4800 

4G0 FOR i=1 TO 1:NEXT 

41Q@ CALL &4800 

420 NEXT 

3@ NEXT 

448 GOTO 350 


Modifications de 7.1 pour 7.1b 


260 ecr-=50032 


280 POKE &45A6,13:° largeur en o 
ctets 
298 POKE %45A7,33:° hauteur en n 


ombre de lignes 
3GQG LOAD'"dessinsB",4:000 
320 buf (phase) -&5:000+(phase-1)*x(13x35 


Modifications de 7.1 pour 7.1c 


280 ecr-50032 

280 POKE &45A6,21: 
ctets 

290 POKE &45A7,19:° hauteur en n 
ombre de lignes 

300 LOAD'"dessinsC",2%3000 

320 buf (phase) =&39000+(phase-1)*x(21*#19) 


largeur en 0 


Vous constatez que le mode XOR ne touche effectivement pas au décor, 
au contraire de la routine du chapitre 4. Mais, si vous êtes attentif au 
déplacement, vous remarquez le défaut évoqué plus haut : lorsqu'une 
partie de l'objet entre en contact avec le décor, les couleurs du dessin sont 
étrangement modifiées. Par contre, aucune altération n'a lieu sur les 
parties couleur de fond, qu'il s'agisse du fond de l'écran ou des parties 
vides de l'objet (rappelons que celui-ci est inscrit dans un rectangle et 
comporte donc un certain nombre de zones couleur de fond). L’explication 
du phénomène est simple : alors que A XOR 0 donne toujours À, A XOR 1 
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donne le bit inverse de A. Nous composons le décor avec l'objet. Si l'un des 
deux est couleur de fond, tout se passe bien. Par contre, chaque bit à 1 de 
l'objet va inverser, lors du XOR, le bit correspondant du décor. Le contenu 
d'un octet étant constitué de masques de couleur, la composition de deux 
masques non nuls va produire un masque totalement différent. Par 
exemple, considérons ce qui arrive si nous effectuons une telle opération. 


11111100 (masque indiquant deux points en stylo 7 sur 
l'objet) 
XOR 11000011 (deux points en stylo 9 sur l'écran) 
00111100 ce résultat est placé dans l'écran. Or, il correspond 
à deux points en stylo 6. 


Le mode XOR n'a heureusement que ce seul défaut. Ses avantages le 
rendent en effet extrêmement souple d'emploi. La plupart des jeux d'action 
connus et reconnus comme excellents (y compris le plus beau de tous 
Sorcery/Sorcery+) utilise le mode XOR. Il suffit de limiter (grâce aux 
techniques du chapitre 8) les zones de décor accessibles pour obtenir un 
résultat acceptable. Toutefois, si les couleurs sont mal choisies, il se peut 
que le mode XOR produise des horreurs lors des contacts objets/décor ou 
objet/objet. Par exemple, si un ensemble de points colorés en stylo 7 
rencontre un ensemble de points en stylo 9, et que le stylo 6 est associé à 
l'encre O (noir), l'ensemble va disparaître de l'écran ! Ce ne sera que 
provisoire bien sûr, car un nouveau XOR redonnera le stylo 9. 


La précaution qui s'impose alors semble évidente : le stylo O0 doit 
toujours être pris comme stylo de fond. Il est le seul à ne pas perturber les 
dessins en mode XOR. De plus, aucun autre stylo ne doit être associé à la 
même couleur que le stylo 0, afin d'éviter le problème décrit ci-dessus. 


Malgré tout cela, vous pouvez retenir la leçon suivante : le mode XOR 
possède de grandes qualités, le tout est de connaître son défaut et d'en 
tenir compte, en sachant par avance qu'il faudra limiter les zones de 
recouvrement avec les décors ou les autres objets. 


TRANSPARENCE 


Pour les puristes qui ne veulent pas d'interférences XOR, il y a bien 
entendu une autre solution : la transparence du fond. Elle consiste à traiter 
l'objet uniquement et non plus la totalité du rectangle qui le contient. Ceci 
afin d'avoir l'objet uniquement sur le décor. Bien entendu, le problème de 
la restitution du décor se pose de nouveau. Mais il est facile à résoudre. Si 
nous supposons que l'objet subit un mouvement, voici la démarche à 
suivre : 


— d'abord replacer le décor là où l'objet se situe pour l'instant ; 
— puis mémoriser le décor de l'endroit où va se placer l'objet ; 
— enfin, dessiner l'objet à son nouvel emplacement. 
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La transposition de ce principe en programme suit exactement ce 
déroulement. La restitution du décor se fait simplement à l'aide de la 
routine 4.1 du chapitre 4, permettant de restituer un objet. Il faut bien 
entendu que ce décor ait préalablement été sauvegardé avant le premier 
affichage. La mémorisation se fait justement avec la routine 4.2. Enfin, il 
nous reste la dernière partie, qui s'inspire de la routine XOR 7.1 (laquelle 
provenait du chapitre 4). La légère modification qui doit être incluse est la 
suivante : si un octet de l’objet est de la couleur du fond, il ne doit pas être 
affiché. De cette façon, seul l'objet sera placé sur l'écran, parfaitement 
intégré au décor. 


La routine 7.2 suit donc le travail désormais classique des routines 4.1 et 
7.1, excepté ce point de détail vite résolu ne nécessitant pas de commen- 
taire supplémentaire. 


18 ; 
28 ;progranse de copie d'objet apres deplacement 
30 ;RAM-)Ecran, FOND TRANSPARENT 


40 ;programne 7.2 
3 
4930 60 ORG 44830 
78 ; 
80 ;ENTREE: (ECRAN) adresse du coin sup. gauche 
90 ; (BUF) adresse de l'isage 
188 ; (LAR) nombre d'octets par ligne 
110 ; (HAU) nombre de lignes 
120 ; 
459€ 138 BUF:  EQU #459C 
4540 140 ECRAN: EQU #45A0 
4586 150 LAR:  EQU #45A6 
45A7 168 HAU:  EQU #45A7 
170 ; 
4830 2AAG45 189 LD HL,(ECRAN) 
4933 ED5B9C45 190 LD DE,(BUF) 
4837 SAA745 200 LD A, (HAU) 
493A 47 218 LD- B,A scoapteur de lignes 
22 ; 
493B C5 230 NEWLIN: PUSH BC 
483C E5 240 PUSH HL 
483D 3AMb4S 250 LD A,1(LAR) 
4840 47 260 LD B,A snoabre d'octets 
278 ; 
4941 1A 288 NEWOCT: LD A,(DE) soctet de l'objet 
4842 B7 290 DR A fond ? 
4843 CA4748 300 JP Z,K soui:pas de transfert 
4846 77 318 LD (HL),A stranstere a l'ecran 
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4847 2 330 OK: INC HL 

1848 13 349 INC DE 

4849 10Fb 350 DJNZ NEWOCT 

4848 El 309 POP HL 

484C CD26BC 378 CALL #BC26 ligne plus bas ecran 
ag Ci 390 POP BC 

4858 10E9 390 DJNZ NEWLIN 

4952 C9 400 RET 


Pass 2 errors: 09 


Le programme 7.3 montre l'application de cette routine à nos objets. 
Malgré la simplicité des routines mises en œuvre, le listing Basic présente 
une allure inquiétante. 


1Q “HAKEHKEEREEEEREEEEEX 

28 ‘+** programme 7.23 *+% 

SD HEIN EEE UE X 

48 ” 

90 ‘Programme illustrant la restitution avec dec 
or garde. 

68 ‘ 

78 MEMORY &2FFF 

8@ LOAD'"progé. 1ob"::10AD'"prog4. 105":LOAD"prog4.2 
ob": "voir annexe 6 

98 ad=%44830:lign-170@ 

100 ctrl=-0:READ cHt:IF c$t="#fin" THEN 2608 

118 FOR i=1 TO LEN(C#) STEF 2 

128 c=VAL("E"+MIDE(cE,1i1,2)) 

15@ POKE ad,c:ad=adti:ctrl=ctrl+c 

14Q NEXT:READ teste:I1F testef>ctrl THEN PRINT'Er 
reur DATA ligne"lign:END 

150 lign=-lign+18:G0T0 18G 

160 ° 

170 DATA 2AAGA4SEDS5B9C4530A74547CSESSAA64S471A87C 
À, 2390 

180 DATA 47489772513180Fé6E1CD26BCC118E9C97, 1877 

198 DATA "fin" 

208 MODE @ 

218 LOAD'image.bin",2&C@@0: ‘chargement du decor, 
optionnel 

220 FOR I1=06 TO 15 

230 INK I,ASC(MID# ("ACLFSPGJOLCJXSDZQ" ,1+1,1))-65 

248 ‘INK 1,ASC{(MID#("AMTOSVSJRECJXSRYE" ,1+1,1))-8 


L ==} 


S pour monochrome 
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230 NEXT 

268 LOAD'"dessins",2%3:006 

270 FOR i=1 TO & 

280 c=&x3008+(i-1)x(7#x10) 

290 buf(i,@)=c-256*INT(c/256):buf(i,1)=INT(c/256 
) 

300G NEXT 

310 POKE &456,7 

320 POKE &45A7,10 

340 ad=51369: POKE &ASAG,ad-256%INT (ad/256) : POKE 
&4SAL,INT(ad/256) 

350 POKE &459C,G:POKE &459D,880:CALL &4730: "init 
. Sauvegarde decor 

360 

370 FOR p=i TO 6 

580 POKE %&459C,G:POKE &459D,880:CALL &4700 

390 CALL &40C09: ‘deplacement 

4808 CALL &47:2 

41@ POKHE %4597C,buf(p,0):POFE %459D,buf(p,1) 

4206 CALL %&4850:FOR i=1 TO 18: NEXT:=:CALL 2%BD19 

430 NEXT 

448 GOTO 370 


Modifications 7.3 pour 7.3 b 


260 LOAD'"dessinsB",843:000G 

280 c=%&3:000@+(i-1)x (13x35 

31Q POKHE &456,15 

326 POKE %4547,35 

540 ad=51369:POKE %45A0,ad-256xINT (ad/256) : FOKE 
XASAL,INT(ad/256) 

350 POKE 4459C,0:POKE %459D,%80:CALL 8&47303: ‘init 
. Sauvegarde decor 

580 POKE %459C,0:FOKHE %&459D,%80:CALL &4700 


Modifications 7.3 pour 7.3 c 


268 LOAD''dessinsC",8:008 

280 c=&5:000+(i-1)x(21#19) 

510 POKE &4546,21 

320 POKE %&45A7,19 

340 ad=51369:POKE %45A0,ad-256%INT(ad/256) : POKE 
%A4SAL,INT(ad/256) 

550 POKE &459C,@G:POKE %459D,%80:CALL &4738: ‘init 
. Sauvegarde decor 

380 PFOÉE %459C,G@:POKE %459D,%80:CALL %4700 
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Les POKES correspondent aux opérations suivantes : 
— initialiser LAR et HAU ; 
— initialiser ECRAN sur la première position du module ; 
— initialiser BUF sur la zone mémoire réservée au stockage du décor (cette 
zone sera de même taille que l’objet) ; 
— CALL routine 4.2 pour sauvegarder le décor. 


Puis on entre à l’intérieur de la boucle modifiant l'adresse écran de 
l'objet : 


— initialiser BUF sur la zone de sauvegarde de décor ; 
— CALL routine 4.1 pour restituer le décor ; 

— initialiser ECRAN sur AD actuelle ; 

— CALL routine 4.2 pour sauver le nouveau décor ; 

— initialiser BUF sur l’objet ; 

— CALL routine 7.2 pour afficher l'objet sur le décor ; 
— continuer en changeant l'adresse. 


PROBLÈMES DE RAPIDITÉ 


Vous constatez néanmoins aisément que l'animation n'est pas très belle. 
Certes, l'objet se déplace réellement sur le décor. Mais le déplacement le 
fait flasher légèrement, comme s'il était transparent. Cela est dû à la 
méthode utilisée. Entre deux affichages consécutifs de l'objet, celui-ci est 
effacé. La persistance de la vision nous empêche de voir le vide en 
résultant. Ce vide se mêle aux images de l'objet et produit une sorte d'effet 
de transparence. La solution de ce problème consiste à laisser beaucoup 
plus longtemps l’objet affiché qu'effacé. || existe aussi une autre solution 
plus astucieuse, plus souple, et surtout plus propre : au lieu d'appliquer le 
principe en trois étapes vu ci-dessus, on le programme pour chaque octet 
de l'objet. Il faut alors gérer simultanément deux adresses écran (l'an- 
cienne et la nouvelle) et deux pointeurs en mémoire (celui de l'objet, et 
celui de la zone de sauvegarde du décor). L'avantage de cette méthode est 
la disparition du vide entre deux images de l'objet, puisque celui-ci est 
effacé et réaffiché, octet par octet, et non plus intégralement. En revanche, 
une routine utilisant quatre pointeurs pose des problèmes de programma- 
tion non négligeables sur l’Amstrad, les registres secondaires n'étant pas 
disponibles. Mais rien n'en interdit la programmation. IX et IY peuvent être 
utilisés, ainsi que HL et DE. 


GESTION DES AVANT-PLANS 


Nous savons maintenant comment déplacer un objet sur un décor. Que 
diriez-vous de le faire passer derrière ? Nous pourrions ainsi simuler une 
sorte de profondeur de décor. 
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La gestion de graphismes en trois dimensions est un sujet plus large que 
notre ouvrage ne peut traiter. Mais nous pouvons, sans trop de difficulté, 
gérer ce que l'on appelle des “AVANT-PLANS”. En clair, nous pourrons 
placer sur l'écran un certain nombre d'objets, éléments de décor qui se 
situeront logiquement devant les objets mobiles, et non derrière. Consé- 
quence : lorsque les avant-plans et les objets se rencontrent sur l'écran, 
seuls les premiers restent visibles. Il s’agit en quelque sorte de l'inverse du 
fond {schéma 7.2 v. p. 200). 


Cette dernière réflexion est d’ailleurs moins innocente qu'il n'y paraît. 
Elle nous donne la logique de base qui va nous permettre de gérer 
quelques avant-plans simples. En effet, il nous suffit pour cela d'inverser le 
principe de la couleur de fond : si un octet de couleur de fond rencontre un 
autre octet, c'est ce dernier qui l'emporte. Un objet pourra être d'avant-plan 
s'il est coloré en stylo 15, par exemple. Dans ce cas, le principe sera le 
suivant : lorsqu'un octet de la couleur 15 rencontre un octet, il l'emporte. 


Pour appliquer le principe des avant-plans de cette manière, il suffit de 
choisir 8 stylos pour les objets et décors, et 8 pour les avant-plans. Pour 
obtenir un bel effet, on peut associer ces 8 stylos aux mêmes couleurs 
respectives. Les objets et avant-plans seront alors indissociables tant qu'il 
n'y aura pas contact entre eux. 


Enfin, notre routine de transparence travaille sur un octet complet, soit 
deux points. Pour traiter chaque point individuellement, il faut compliquer 
le travail, utiliser les masques de points pour isoler chacun des deux et les 
traiter séparément, et les masques de stylos pour savoir s'ils correspon- 
dent au point, cela pour chaque octet bien entendu. C'est ce qui différencie 
la routine 7.4 des 7.2, 7.1 et 4.1 Son fonctionnement est un peu plus 
complexe. 


19 ; 

28 ;programme de copie d'objet 

39 ;RAM->Ecran, FOND TRANSPARENT couleurs 8 a 15 en avant-plan 
40 ;programne 7.4 


50 ; 
4760 6 ORG #4768 
70 ; 
80 ;ENTREE: (ÉCRAN) adresse du coin sup.gauche 
99 ; (BUF) adresse de l'image 
100 ; (LAR) nombre d'octets par ligne 
118 ; CHAU) nombre de lignes 
128 ; 
459€ 130 BUF: EQU #459C 
4540 148 ECRAN: EQU #4540 
45A6 150 LAR:  EGU #4546 


45A7 160 HAU:  EQU #4547 
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4760 
4763 
4767 
476À 


476B 
476C 
476D 
4770 
AT 
4772 
ATTS 
4776 
4778 


477B 
ATIC 
47TE 
4781 
4782 
4783 
4795 
4786 


4787 
4788 
478B 
478D 
4790 
4791 
4795 
4796 
4797 
4798 
479À 
479B 


479C 
4790 
47% 
47AQ 
47AI 
47A4 
AJAS 
47À7 
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CDAB47 
CBSF 
C28747 


A 
E6AA 
CA8747 
4F 

7E 
E655 
Bi 

T7 


CDA847 
CBSF 
C29C47 


E655 
CA9CA7 
4 


EbAA 
Bi 
77 


23 

13 
1@Di 
Ei 
CD26BC 
C1 
18C4 
C9 


170 ; 

180 

190 

208 

219 

228 ; 

239 NEULIN: 
240 

250 

260 

270 NEWOCT: 
280 


388 
390 


408 ; 
41@ POINT2: 
420 
438 
448 
450 
488 
470 
488 
490 
508 
518 
528 
958 ; 
549 ; 
590 (K: 
568 
570 
580 
590 
620 
bi 
620 
630 ; 


LD HL, (ECRAN) 
LD DE, (BUF) 
LD A, (HAU) 
LD B,A 


PUSH BC 
PUSH HL 

LD A, (LAR) 
LD B,A 

LD A,CHL) 


CALL MASK 
BIT 3,A 
JF NZ,POINT2 


LD A,(DE) 
AND 18181810 
JP Z,POINT2 
LD C,A 

LD A,(HL) 
AND 91010101 
Em C 

LD  (CHL),A 


LD A,(HL) 
CALL MASK 

BIT 3,A 

JP NZ,0K 

LD A,(DE) 
AND %01010101 
JP Z,K 

LD C,A 

LD A,(HL) 
AND 2181081010 
œ C 

LD  (HL),A 


INC HL 

INC DE 
DJNZ NEWOCT 
POP HL 
CALL #BC28 
POP BC 
DJNZ NEWLIN 
RET 


scompteur de lignes 


ssauvegarde compteur 
Sauvegarde adresse ligne 


scompteur du nombre d'octets 
soctet ecran 

sdecale a droite 

stransforae en numero stylo 
scouleur d'avant-plan ? 
joui: rien a faire, traiter 
point droit 

soctet objet 

sgarde point de gauche 
scouleur fond: pas d'affichage 
3sinon, garder dans C 


sgarder seulenent point droit 
sajouter point gauche objet 
sremise en place nouvel octet 
ecran 


sprend octet ecran 
stransforae en no stylo 
scouleur d'avant-plan ? 
souisrien a transferer 
soctet objet 

sgarde point droite 
sfond:pas de transfert 
sgarde pour or. 

soctet ecran 

sgarde point gauche 
sajoute point droit 
sremise à jour ecran 


sancien debut ligne 
descend d'une ligne 


ligne suivante 
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648 stransforne le masque donne dans À 
658 ; en numero de stylo 

668 ; (aasque suppose du point de droite, 
678 ; donc de la foræe OxOxBxBx) 


688 ; 
A7A8 4F 698 MASK: LD C,A spasse masque dans € 
47A9 3E0Q 700 LD A,8 snumero ais à zero 
47AB CB29 710 SRA C bit { dans Carry 
47AD D2B247 720 JP NC,JUMI spas de biti positionne 
47BQ 3EU8 750 LD A,8 spoids de ce bit dans le 
numero stylo 
47B2 CB29 740 JUMI: SRA C 
47B4 CB29 750 SRA C sbit 3 dans carry 
47B6 D2BB47 760 JP NC,JUM2 sbit 3 pas positionne 
4789 C602 T70 ADD A,2 poids du bit 3 
47BB CB29 788 JUM2: SRA C 
47BD CB29 790 SRA C sbit 5 dans carry 
47EF D2C447 800 JP  NC,JUMS ;pas positionne 
47C2 Céÿ4 8i8 ADD A,4 spoids du bit 5 
47C4 CB29 828 JUMS: SRA C 
47C6 CB29 854 SRA C bit 7 dans carry 
47C8 D0 840 RET NC ;pas positionne:fin du travail 
4709 3 850 INC A spoids=i 
4ICA C9 860 RET 


Pass 2 errors: 80 


Le registre HL pointe sur l'écran, DE sur l’objet à restituer. NEWOCT est le 
début du traitement d'un octet de l'objet. Tout d'abord, l'instruction RRCA 
décale cet octet à droite de façon à récupérer le numéro de stylo du point 
gauche. CALL MASK effectue le calcul. Celui-ci additionne 1, 2, 4 et 8 dans 
le registre À en fonction des bits positionnés du point. Reportez-vous à 
l'annexe 3 pour avoit une liste des masques de points. 


Une fois le numéro de stylo calculé (compris entre 0 et 15), un test “BIT 
3,A" permet de savoir si celui-ci est supérieur à 7. Si le bit est positionné, le 
stylo est compris entre 8 et 15. Il s’agit d'une couleur d'avant-plan. Dans ce 
cas, la routine saute au traitement du point de droite : l’objet n’est pas 
restitué, il disparaît donc derrière l'avant-plan. 


Par contre si le stylo est inférieur à 8, il faut donc restituer l'octet de 
l'objet. Mais il faut également traiter la transparence. Pour cela, l'octet de 
l'objet passe par un masque 10101010 binaire. Seuls les bits du point de 
gauche sont gardés. Si le résultat est 0, alors le point est de la couleur du 
fond, il ne doit donc pas écraser le décor. Aucune modification n'est 
effectuée sur l'écran. 
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Enfin, dernier cas, nous plaçons ce point sur l'écran sans effacer le point 
de droite de l'écran de la façon suivante : 


LD C,A : le registre C reçoit le masque du point de gauche 
(après AND avec 10101010, le registre A contient 
x0x0x0x0, soit l'état du point de gauche) ; 


LD A,(HL) : À contient maintenant l'octet de l'écran ; 

AND 01010101 : ceci efface l’état du point gauche de l'écran; 
OR C : et on ajoute le nouveau point de gauche calculé ; 
LD (HL),A : on remet en place cet octet dans l'écran. 


Ensuite, on effectue la même manipulation sur le point de droite. 
L'apparente complexité des manœuvres est trompeuse : la routine est 
aussi rapide (d’un point de vue visuel) que son équivalent ne traitant pas 
les points mais les octets. En effet, les opérations ajoutées sont pour la 
plupart des AND et des décalages. Ces opérations sont extrêmement 
rapides. 


LORIE EE DEEE DEEE 

28 ‘*x* programme 7.4  x*x 

SO HIDE DE DEEE EE EE 

48 ‘ 

00 ‘Frogramme illustrant la restitution avec dec 

or garde. 

68 

78 MEMORY &2FFF 

80 LOAD'"progé. 10b"::LOAD"prog4. 10b":LOAD'"prog4.2 

ob": "voir annexe 6 

90 ad=%47860:1ign=17@ 

108 ctrlil=G:READ c#:1F c$#="fin" THEN 240 

110 FOR i=1 TO LEN(c#) STEP 2 

12Q c=VAL("&"+MIDE(CH,1,2)) 

130 POKE ad,c:ad=-ad+i:ctrl=ctrl+c 

148 NEXT:READ teste:IF teste<>ctrl THEN PRINT'Er 
reur DATA ligne"lign:END 

158 lign-=lign+1@:GOTO 108 

168 ‘ 

17Q DATA ZAAGASEDSB9CA4S3AA74547CSES3AA6GASA47 7EBFC 
D, 2325 

180 DATA A847CBSFC287471AE6AACA8S7474F7EE655B1777 
E, 2713 

19Q DATA CDAS47CESFC29C471AE85SCA9C474F7EE6SAAB 17 
7, 29834 

Z08 DATA 23131@D1E1CD26BCC11@0C4C94FSE0@CBZ97D2B24 
7, 2385 

21Q@ DATA 3E@8CB29CB29D2BB47C682CB29CB29D2044 7060 
4, 2393 
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220 DATA CB29CB29D03:CC900000C000000U00G00G0 000 
6, 957 

25308 DATA "fin" 

248 MODE G@ 

250 LOAD'"'image.bin",%C0088: ‘chargement du decor, 
optionnel 

268 FOR I=@ TO is 

276 INK I,ASC(MID# ("ACLFSPGJOLCJXSDZQ",1+1,1))-65 

280 ‘INK I,ASC(MID#("AMTOSVSJRECJXSRYG" ,1+1,1))-6 
9 pour monochrome 

290 NEXT 

30@ LOAD'"dessins",%5:000 

319 FOR i=1 TO 6 

320 c=8&:000+(i-1)x(7x10) 

350 buf(i,@)=c-256+INT(c/256) :buf(i,1)=INT(cC/256 
) 

34G NEXT 

358 POKE %456,7 

368 POKE &4547,10 

370 ‘ 

380 ad=-5i369:POKE &450,ad-256%INT (ad/256) : POKE 
&45A1,INT(ad/256) 

39G POKE %459C,0:POKE &459D,%90:CALL &47303'init 
-. Sauvegarde decor 

400 ‘ 

418 FOR p=i TO 6 

428 POKE &459C,@:POKE %459D,%80:CALL &4700 

38 CALL &4C00: ‘deplacement 

446 CALL &4750@ 

4SQ POKE &459C,buf (p,0@):POKE %459D,buf(p,1) 

468 CALL &476G:FOR i=i1 TO 1G:NEXT:CALL &BD19 

47@ NEXT 

480 GOTO 410 


Modifications de 7.6 pour 7.6b 


308 LOAD'"dessinsB",25000 

320 c=&3000+(i-1)# (1333) 

3350 POKE %456,13 

360 POKE &45A7,33 

380 ad=51369:POKE &45A0, ad-256*%INT (ad/256) : POKE 
&ASA1,INT(ad/256) 

390 POKE %459C,0:POKE %459D,880:CALL &4730: ‘init 
. Sauvegarde decor 

420 POKE &459C,0:POKE &459D,8&80:CALL &4700 
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Modifications de 7.6 pour 7.6c 


30.4 06.4 

300 LOAD'"dessinsC",23000 

320 c=&3000+(i-1)#(19#21) 

3540 NEXT 

330 POKE &45A6,21 

360 POKE &454A7,19 

380 ad=-51369:POKE %45A0,ad-256+*INT (ad/256) : POKE 
&45A1,INT(ad/256) 

590 POKE &459C,0:POKE %&459D,8&80:CALL %&4756G:'init 
. Sauvegarde decor 

42Q@ POKE %459C,0:POKE &459D,8&80: CALL &4700 


Enfin, bien que les points soient désormais traités individuellement, 
l'objet ne peut toujours se déplacer que d'un octet au minimum, soit deux 
points. Pour obtenir un déplacement point par point, il faut choisir l’une des 
deux solutions suivantes : 


— soit doubler le nombre de dessins pour un objet, afin d'obtenir des 
phases décalées par des points et non des ensembles de 2 points ; 

— soit refaire les routines pour traiter les différents cas de figure (dessin sur 
un point de gauche d’un octet, et dessin sur un point de droite). 


Toutefois, la majorité des travaux se contentent d'un traitement par 
octets et non par points. 
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QUEL SYSTÈME DE COORDONNÉES ? 


Les chapitres précédents nous ont permis de maîtriser la restitution 
visuelle des objets graphiques. Le chapitre 6 nous a même appris à 
modifier l'emplacement d'un objet à l'écran en fonction du mouvement 
demandé par le joystick. Mais le plus gros de la gestion des objets reste à 
faire. En effet, nous n'avons pour l'instant aucun moyen simple de 
connaître l'endroit de l'écran où se situe l'objet, par exemple par rapport à 
un mur. La seule solution semble passer par son adresse de visualisation. 
Étant donné la structure de l'écran, les calculs risquent de devenir 
cauchemardesques. 


Il faut donc recourir à un système de coordonnées fictives, c'est-à-dire 
que la position de l'objet ne sera plus mémorisée simplement par son 
adresse en mémoire écran, mais également par deux coordonnées X et Y, 
celles-ci étant modifiées lors des déplacements. Ces coordonnées ne 
joueront aucun rôle dans la restitution de l'objet à l'écran. En revanche, 
elles nous permettront de détecter les collisions avec des éléments de 
décor, des murs, d'autres objets, cela en comparant simplement les 
coordonnées de l'objet à déplacer et celles des obstacles possibles. Nous 
pourrons alors, en fonction du résultat des tests, décider ou non d'inhiber 
le déplacement souhaité {schéma 8.1 v. p. 209). 


Le système de coordonnées utilisé est directement lié à l'écran utilisé. Si 
celui-ci est intégralement pris, nous pourrons par exemple opter pour ce 
qui suit : 


— les abscisses iront de 0 (à gauche, premier octet sur une ligne) à 79 
(dernier octet, à l'extrême droite) ; 
— Les ordonnées iront de 0 (en haut de l'écran) à 199 (en bas). 


Dans ce cas, il sera simple, par exemple, d'interdire une sortie de l'écran, 
grâce à la séquence suivante : 


— retenir les anciennes coordonnées X et Y ; 

— calculer les nouvelles d’après le déplacement souhaité ; 

— si x<0 ou x>79 ou y<0 ou ÿy>199, restituer les anciens X et YŸ et fin du 
travail ; 

— sinon, mémoriser ces nouvelles coordonnées et afficher l'objet à son 
nouvel emplacement en effaçant l'ancien. 


TERRITOIRES INTERDITS ET COLLISIONS 


On peut également interdire certains endroits de l'écran par ce même 
principe. Le schéma 8.1 montre par exemple une zone interdite. La zone en 
question peut aisément être codée dans une table qui résume les points 
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£ eusyos 
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interdits. Par une suite de tests (vérifiant qu'aucun des points n'est 
identique à la nouvelle position), on peut savoir si l’objet cherche à 
empiéter sur la zone interdite. 


Ce procédé a un inconvénient : il est lent et encombrant. Une série de 
tests risque de ralentir les calculs de façon significative, et il faudra 2 octets 
de codage pour chaque point interdit. || existe une façon plus simple de 
procéder : on découpe la zone en rectangles, et on ne retient que les quatre 
données caractérisant chaque rectangle : le X de gauche et la largeur, le Y 
du haut et la hauteur. 


Déplacement par coordonnées 


Bien entendu, la gestion de coordonnées suppose une modification de la 
routine de calcul d'adresse écran. Lorsque nous effectuons un déplace- 
ment, il faut remettre à jour X et Y. Le programme en assembleur 8.1 est 
donc une mise à jour du programme 6.1. || ajoute uniquement une 
modification de X et Y dans les sous-routines HAUT, BAS, GAUCHE et 
DROITE de déplacement élémentaire. 


18 ; 
20 ;Programne de deplacement par joystick 
30 ;Entree: 
40 ; la variable ECRAN contient l'adresse ecran 
% ; a recalculer en fonction de l'etat du joystick 
60 ; et X et Ÿ les coordonnees de l'objet. 
70 ;programse 8.1, remake 6.1 
, 
45A0 90 ECRAN: EGU #45A8 
45AA 100 X: EGU  #454A 
45AB 110 Y: EQU #45AB 
128 ; 
499C 139 ORG #489C 
489C CD24BB 140 CALL #BB24 sget joystick state 
499F  2AA45 158 LD HL,(ECRAN) 
48A2 CDA948 168 CALL DEPLAC 
49A5  22A045 170 LD  (ECRAN),HL 
4848 C9 189 RET 
190 ; 
4849 E60F 200 DEPLAC: AND #F sgarde 4 bits de droite 
48AB 17 218 RLA saultiplie par deux 
48AC SF 220 D E,A 
49AD 1608 250 LD D,8 stransfert de l'offset 16 bits 
dans DE 
48AF DD21C848 249 LD IX,TABLE 


4885 


48B5 
48B8 


48BB 
498C 
A8BE 


4802 


48C6 


48CA 


48CE 
48D8 
4802 
48D4 
4806 
48D8 
48DA 
48DC 
48DE 


48EQ 


DD19 


DDSEUQ 
DD56@1 


D5 
DDE1 
DDE9 


2F49 
F148 
E048 
2F49 
0549 
1749 
1D49 
0549 
@E49 
2349 
2949 
@E49 
2F49 
F148 
ED48 
2F49 


250 


260 
270 


269 
298 
300 
318 ; 


ADD IX,DE 


LD E,(IX+0) 
LD D,(IX#) 


PUSH DE 
POP IX 
JP (IX) 


328 ;la table de saut 


330 ; 


34Q TABLE: DEFW NOP 


350 
360 
370 
390 
390 
400 
410 
420 
430 
440 
450 
468 
478 
480 
490 
00 ; 


DEFW HAUT 
DEFW BAS 
DEFH NOP 
DEFW GAUCHE 
DEFW DIAGI 
DEFW DIAG2 
DEFW GAUCHE 
DEFW DROITE 
DEFW DIAGS 
DEFW DIAG4 
DEFW DROITE 
DEFW NOP 
DEFW HAUT 
DEFH BAS 
DEFW NOP 
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scalcul localisation de 
l'adresse de saut 


srecupere adresse de saut 
dans DE 


stransfert dans IX 
set saut a la routine 


918 ;les quatres deplacements elementaires 


929 ; 
30 BAS: 


BRSRSSSSÉSÉSE 
_ 


S 
s 


3838 


LD At) 
INC A 

LD (Y),A 

LD DE,#3 
ADD HL,DE 
RET NC 

LD DE,#C058 
ADD HL,DE 
RET 


LD A,(Y) 
DEC A 

(Y), À 
DE, #F800 
ADD HL,DE 
A,H 

4c0 

NC 

DE, #3FBO 


EE 


GASG 


stoujours dans l'ecran 


stoujours dans l'ecran 
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4905 19 720 ADD HL,DE 
4984 C9 30 RET 
749 ; 
4905 2B 758 GAUCHE: DEC HL 
4906 ZAAA4S 76 LD A,(X) 
4909 3D 770 DEC A 
490A 32AA45 780 LD (X),A 
490D C9 790 RET 
808 ; 
4E 25 810 DROITE: INC HL 
490F  ZSAAAAS 820 LD A,(X) 
4912 SC 850 INC A 
4913 32AA45 840 LD (X),A 
4916 C9 850 RET 
869 ; 
870 ;les quatres diagonales 
880 ; 
4917 CDG549 898 DIAGi: CALL GAUCHE 
4914 C3F148 900 JP HAUT 
918 ; 
491D CD@549 928 DIAG2: CALL GAUCHE 
4920 C3E048 950 JP BAS 
948 ; 
4923 CD@EA49 950 DIAG3: CALL DROITE 
4926 C5F148 960 JP HAUT 
970 ; 
4929 CD@E49 988 DIAG4: CALL DROITE 
492C C3E048 998 JP BAS 
1808 ; 
1818 ;RIEN ! 
1020 ; 
492F C9 1830 NOP:  RET 


Pass 2 errors: 00 


Le mode d'emploi en est le même que la routine 6.1 : on envoie dans A 
un code de déplacement (le plus souvent, l'état du joystik), et dans le 
registre HL l'adresse originale d'affichage de l'objet. Ensuite, on appelle 
DEPLAC (adresse $48A9). Le retour se fait avec les variables X, YŸ et HL 
remises à jour. Le petit programme au début du listing (adresses $489C à 
$48A8) est destiné à l’utilisation sous Basic de la routine : il appelle l’état de 
joystick, place l'adresse écran dans HL, et exécute la routine proprement 
dite. Ensuite, il remet à jour la variable ECRAN. Vous pouvez utiliser le 
programme 8.1 Basic pour observer la remise à jour des coordonnées (il 
s'agit bien entendu du programme 6.1 modifié pour la circonstance). 
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LA "EEE DEEE DEEE EEE EEE 

26 ‘++ Frogramme 8.1 ++ 

FO HEADER EE EEE EE 

48 ‘ 

30 ‘deplacement d'un objet en plusieurs phases 

68 ‘d'apres le codage effectue par programme 4.3 

70 ‘aux adresses #2fff et suite. 

80 ‘ 

90 MEMORY &2FFF 

180 LOAD'"prog4.1ob":'voir annexe 6 

110 

120 ad=%489C:1ign-200 

130 ctril=U:READ C#:1F c#="fin" THEN 290 

148 FOR i=1 TO LEN(c#) STEF 2 

150 c=VAL("&R"+MIDE(CH,1,2)) 

160 POKE ad,c:ad=ad+til:ctri=ctrl+c 

170 NEXT:=:READ teste:1F teste<2>ctrl THEN PRINT'"Er 
reur DATA ligne"lign:END 

180 lign=lign+10:G0T0 150 

190 ” 

200 DATA CD24BE2AAD4S5CDA9A4822A045C9E80F 175F 1888D 
D, 2215 

21@ DATA 21C848DD1S9FDDSEGGDDS681DSDDE 1DDE92F49F14 
8, 2712 

228 DATA EU482F49054917491D4905490E492:4929490E4 
7, 1166 

230 DATA 2F49F148E0482F493AAB4553C32AB4511000819D 
G, 1755 

248 DATA 11S5Q0C019C953AAB453D32AB451100F8197CFEC@D 
8, 2232 

250 DATA 11F03F19C92B3AAAA4SSDSEZ2AA4SCI2ESAAAA4SSCS 
2, 1815 

268 DATA AA4SC9CDGS549C5F 148CD0549C3E048CD0E49705F 
1, 2733 

27 DATA 48CDUE49CS5SE048C900000000000000000000800 
G@, 1056 

280 DATA "fin" 

290 MODE @ 

300 LOAD'"'image.bin",%C@008: ‘chargement du decor, 
optionnel 

310 FOR 1I=QG TO 15 

3520 INK I,ASC(MIDE# ("ACLFSPGIJOLJXSDZQ",1+1,1))-65 

350 ‘INK I1,ASC(MIDS ("AMTOSVSJREJXSRYO" ,1+1,1))-6 
So pour monochrome 

340 NEXT 

390 ecr=51328:x=420: y=7 

568 POKE &45AG,ecr-256*%INT (ecr/256):POKE &4541,1 
NT (ecr /256) 

378 POKE &45AA,x:POKE &454B, y 
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380 POKE %&45ñ6,7:° largeur en oc 
tets 
390 POKE %&45À7,10:° hauteur en n 


ombre de lignes 

400 LOAD'"dessins",8z:000 

41@ FOR phase=i TO 6 

420 buf (phase) =&5000+(phase-1)x(7x10) 

430 NEXT 

440 ” 

450 FOR phase=i TO 4 

4606 POKE &459C,buf (phase) -256%INT (buf (phase) /25é6 
):POKE &459D, INT (buf (phase) /256) 

47@ FOR k=1 TO 4 

480 CALL &489C 

490 LOCATE 1,24:PRINT"'X : "3; PEEK(&A4SAA) ;" — Y 5"; 
PEEK (&45AB) 

900 CALL &4700 

910 NEXT 

92@ NEXT 

30 GOTO 450 


Modifications de 8.1 pour 8.1b 


3950 ecr=51328:x-430: y=7 


380 POKHE %45Â6,13:° largeur en o 
ctets 
390 POKE &45A7,33: hauteur en n 


ombre de lignes 
40Q LOAD'"dessinsB",2&3000 
420 buf (phase)-&50008+(phase-1)#x(13*x33) 


Modifications de 8.1 pour 8.1c 


350 ecr-=51328:x=830:y=7 
370 FOKE &4SAA,x:POKE &45AB, y 


380 PFOKE %4546,21:° largeur en o 
ctets 
3590 POKE %45A7,19:° hauteur en n 


ombre de lignes 
400 LOAD'"dessinsC",43:000 
420 buf (phase) =&3000+(phase-1)*x(21*19) 
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La gestion simple de coordonnées est donc la suivante : 


Q initialisation de l'adresse écran et des coordonnées de départ ; 
Ü mémorisation du décor de l'emplacement initial. 
(1) mise en place des variables de travail X,Y,LAR,HAU,ECRAN,BUF. 
e Si déplacement demandé : 
— appel de la routine 8.1 DEPLAC ; 
— test des territoires interdits (bords de l'écran compris) ; 
— si déplacement valide : 
remise en place du décor ; 
remise à jour réelle de X,Y et ECRAN ; 
mémorisation du décor du nouvel emplacement ; 
affichage de l'objet sur le décor (gestion des avant-plans par la 
routine 7.3) ; 
Ü continuer programme ; 
O lorsque le reste du travail est terminé, on recommence en (1). 


La gestion des décors écrasés et des différents graphismes d'affichage 
de l’objet doit être indépendante des déplacements. En effet, il faut une 
zone de sauvegarde de décor par objet en mouvement, et il faut remettre à 
jour les variables ECRAN, BUF, BUFFER, X, Y, LAR et HAU pour chaque 
objet géré ainsi. Il s'agit simplement de chargements en mémoire, ce n'est 
guère compliqué. || nous reste à programmer la routine s'occupant des 
territoires interdits et des collisions entre objets. 


Collisions 


Chaque objet est codé dans un rectangle dont nous connaissons les 
caractéristiques. Une collision entre deux objets correspond donc à une 
intersection non vide des deux rectangles. La procédure à suivre, pour 
savoir si cette intersection est vide, est simple. Elle est constituée de quatre 
tests. S'ils sont tous vérifiés, il y a recouvrement, si l’un des quatre n'est 
pas vérifié, les rectangles ne sont pas en contact. Ces quatre tests 
fonctionnent quels que soient les cas de figure (v. schéma p. 216). 
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X X+LAR X1+LAR1 
! l 1 1 X 
[l 1 l [l 
| 
| 1 l 
I 1 l ' 
! 1 1 | 
APR 1 
l 
1 
l 
0 
1 
OBJET1 
! 
l 
l 
1 
(l 
| 
! 
Y+hau+-------- ei 
OBJET2 
NIFNAUTAE SES RS EEE ES SESESESESS 
CONTACT X1<X+LAR X1-X <LAR 
ET 
X<X1+LAR1 X—X1 <LAR1 
ET 
Y1<Y+HAU Y1-1 <HAU 
ET 
Y<Y1+HAU1 Y—Y1 <HAU1 
Schéma 8.2 Collision entre objets. 


La programmation de la routine est simple si on utilise une zone de 
variables particulière. En l'occurrence, les variables X, Y, LAR, HAU, X1, Y1, 
LAR1 et HAU1 sont placées à partir de $45A8, dans des octets successifs. Le 
registre IX contenant $45A8, on utilise l’adressage pseudo-indexé pour 
accéder facilement à chacune des huit variables. Cette routine est l'occa- 
sion de constater la puissance de ce type d'adressage. Chaque case 
mémoire accessible par (IX+d) peut être assimilée à un registre, ce qui 
permet de l'ajouter à A, de le modifier et de le comparer à A très 
simplement. 


ASAB 
4549 
45AA 
45AB 
ASAC 
45AD 
ASAE 
454F 
45B0 


4950 
4950 
4954 


4958 
4758 
A9SE 
495F 
4962 
4963 


4964 
4967 
496À 
496B 
496€ 
496F 


4970 
4973 
4976 
4977 
497À 
497B 


DD21A845 
DDS60800 


DD7EQ8 
DD86@2 
4 
DD/EB4 
B9 
D 


DD7E84 
DD8606 


DD7E0Q 
B9 


DD7EQ@i 
DD8605 
4F 
DD7E@S 
B9 
D 
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19 ; 

20 routine de detection de collision entre objets 

30 sprogramme 8.2 

48 ; 

58 ;ENTRÉES: les variables X, YŸ, LAR et HAU definissent le premier 
68 ; objet graphique. 

78 ; X1,Y1,LAR1,HAUL definissent le second. 


70 X: EQU #45A8 
100 Y: EQU #45A9 
110 LAR:  EQU #45AÀ 
128 HAU:  EQU #45AB 
158 Xi: EQU  #45AC 
140 Yi: EQU #45AD 
190 LARI:  EQU #45AE 
169 HAUÏ:  EOU #4SAF 
170 COLLI: EQU #45B0 


188 ; 

190 ORG +#4950 

208 LD IX,X 

218 LD (IX+8),0 spar defaut, pas de contact 
228 ; 

239 ser test XI<XHLAR ? 

249 ; 

250 LD A,(IX+8) sA=X 

268 ADD A,(IX+2) 3 A=X+LAR 

270 LD CA 

280 LD A,(IX+4) spar rapport a X1 ? 
270 CP C 

300 RET NC ;pas de contact, X+LAR<=X1. 
310 ; 

328 ;2e test X{X1+LARI 

358 ; 

340 LD A,(IX+4) 3A=X1 

350 ADD A,(IX+6) sA=X1+LARI 

360 LD C,A 

370 LD A,(IX+0) 

389 CP C ;compare a X ? 

37 RET NC spas de contact, Xi+LARI<=X 
408 ; 

410 sier test Y1<Y+HAU 

428 ; 

450 LD A,(IXri) AY 

440 ADD A,(1X+3) 3 A=Y+HAU 

450 LD C,A 

460 LD A,(IX+5) 

470 CP C 3Y+HALKYI ? 

498 RET NC soui, pas de contact 


498 ; 
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900 ;2e test Y<Y1+HAUI 


918 ; 
497C DD7E@S 520 LD A,(IX+5) ;A=YI 
497F  DD8607 Ex") ADD A,(IX+7) 3 A=Y1+HAU 
4982 4F 540 LD CA 
4983 DD7EUI 950 LD A,(IX+i) 
4986 B9 Jo CP C sVI+HAULCY 7 
4987 D8 3/8 RET NC soui:pas de contact 
580 ; 
598 ;il y a collision, les quatres tests sont verifies. 
690 ; 
4988 DDS608FF 618 LD (IX+8),#FF positionne COLLI 
498C C9 620 RET 


Pass 2 errors: @0 


Cette routine compare les deux rectangles caractérisés par les 8 varia- 
bles. Nous allons maintenant l'utiliser pour savoir si un objet se place sur 
un territoire interdit ou non. Pour cela, nous allons supposer que le 
programme appelant fournit deux types de données : 

D celles de l'objet dans les nouvelles variables X,Y, LAR et HAU ; 
D l'adresse de la table des territoires interdits, dont le contenu est le 
suivant : 
e X territoirel 
Y territoire1 
largeur territoire 1 
hauteur territoire 1 
X territoire 2 
Y territoire 2 
largeur territoire 2 
hauteur territoire 2 
. ainsi de suite pour chaque territoire interdit … 
$FF pour indiquer la fin de la table. 


La routine 8.3 s'occupe des tests. En fin de travail, la variable COLLI 
contient $FF si un contact a été trouvé, et 0 sinon. 


18 ; 

20 ;programme d'interdiction de zones 

30 sprogranne 8.5 

40 sutilise La routine 8.2 afin de tester les zones 


 ; 
A5AB 68 X: EQU #45A8 
4549 78 Y: EQU #45A9 


45AA 88 LAR: EQU  #45AÀ 
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454B 90 HAU:  EGQU #45AB 
AAC 188 Xi: EQU  #45AC 
454D 118 Yi: EQU #45AD 
ASAE 120 LARI:  EQU #45 
45AF 130 HAUL:  EQU #45AF 
45B0 148 COLLI: EGU #45B0 
45B1 150 TABLE: EQU #45B1 sadresse table des zones 
interdites 
168 ; 
4940 170 ORG  #49A0 
189 ; 
A9AQ  2ABi45 190 LD HL, (TABLE) ;adresse table dans HL 
49A5 AF 208 XOR A 3-0 
49A4  32B045 218 LD  (COLLI) A saise à 0 flag de collision 
228 ; 
49A7 TE 238 LOOP: LD A,(HL) sier octet 
498 FEFF 240 CP #FF ÿfin de table ? 
49AA C8 258 RET joui: teraine avec succes, 
COLLI reste a zero 
49AB S2AC4S 268 LD (X1),A 
AE 2 270 INC HL 
49AF 7E 288 LD A,(HL) 
49B8 32AD45 290 LD (Y1),A 
4985 23 390 INC HL 
4984 7E 318 LD A,(HL) 
495 S2AE45 320 LD (LARI),A 
4988 23 sat) INC H 
4989 7E 340 LD A,(CHL) 
49BA 32AF45 350 LD  (CHAUI),A 
49BD 23 368 INC H ;donnees transaises en tant 
qu'objet 2 
498E ES 370 PUSH HL ;Sauve pointeur table 
49BF  CD5049 388 CALL #4958 stest de collision (prog 8.2) 
4902 El 370 POP HL srecupere pointeur 
49C3 3ABU4S 400 LD A,(COLLI) ; test de calli 
49C6 B7 418 ŒR A spositionne ou non ? 
4907 C9 420 RET NZ soui: fin du travail 
49C8 C3A749 430 JP  LOOP stester autres territoires 
de la table. 


Pass 2 errors: @ 
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ROUTINE DE DÉPLACEMENT AUTOMATIQUE 


La mise en œuvre de la routine ne pose pas de problème particulier ; elle 
suit l'algorithme décrit plus haut. Le programme Basic 8.3 montre ce 
déroulement des opérations. 


10 HHXHEXH HIHI HOME NE 

20 ‘+*# Programme 3.3 ** 

SO HIER DEN DEN DEEE EN 

48 ” 

50 ‘deplacement d'un objet avec coordonnees et t 
erritoires interdits. 

68 ‘ 

78 MEMORY &2FFF 

80 LOAD"prog8. i1ob":LOAD"prog4.1iob":"voir annexe 
& 

98 LOAD"prog4.20ob":LOAD"prog7.40b": "voir annexe 
6 

100 ad=2%4950:1ign=i80 

110 ctrl=B:READ c#:1F ct="#fin" THEN 240 

120 FOR i=i TO LEN(C#) STEP 2 

139 c=VAL("&"+MID#E(CH,1i,2)) 

140 POKE ad,c:ad=ad+i:ctrl=ctrl+c 

159 NEXT:READ teste:I1F teste<i>ctrl THEN PRINT'Er 
reur DATA ligne"lign:END 

186 lign=lign+1@:GO0OTO 110 

170 ‘ 

18@ DATA DDZ1A845DD3608@G@BDD7EGUGDD86824FDD7E80489D 
@, 23061 

19@ DATA DD7EG4DD864064FDD7EG8BE9DGDD7E0G1DDS6054FD 
D, 2537 

2808 DATA 7E05B9D@DD7E8SDD86074FDD7E81B97D0DD23608F 
F, 2596 

210 DATA C9, 201 

228 DATA fin 

240 ad=%&49A0:1ign=320 

250 ctrl=0:READ c#:1F c#="fin" THEN 370 

260 FOR i=1i TO LENCC#) STEP 2 

270 c=VAL("&"+MIDH(C#,1,2)) 

280 PFOKHE ad,c:ad=ad+i:ctrl=ctr1l4+c 

290 NEXT:READ teste:IF teste<>ctrl THEN PRINT'Er 
reur DATA ligne"lign:END 

300 lign-lign+18:G0TO 25 

310 
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320 DATA 2AB145AF32B0457EFEFFC852AC452357E52AD452 
3, 2372 

338 DATA 7E32AE45237E32AF4523ESCDS5049E 13AB045B7C 
6, 2399 

348 DATA C35A749, 4355 

350 DATA fin 

568 ‘ 

376 MODE @ 

380 LOAD'"'image.bin",8%&C@00: ‘chargement du decor, 
optionnel 

390 FOR 1=0 TO 15 

408 ‘INK I,ASC(MID#(C"ACLFSPGJOLJXSDZG" ,1+1,1))-6 
9: “pour couleur 

410 INK I,ASC(MID#("AMTOSVSJREJXSRYO" ,1+1,1))-85 
:° pour monochrome 

420 NEXT 

450 LOAD'dessins",%:000 

440 FOR phase=i TO 6 

456 buf (phase) =-&50008+(phase-i)*x(7#16) 


46@ NEXT 

470 ‘ 

48Q ‘initislisations variables 
4970 


SOG x=0:y-=178:ecran-52880 

910 lar=/7shau=19 

520 POKE &4SA6,lar:POKE %&45A7 ,hau 

530 FOKE &45A0,ecran-256*INT (ecran/256):FOKE &45 
Ai,INT (ecran/256) 

940 FOKE %459C,8:POKE %459D,8&37 

550 CALL 44730: ‘memorise premier decor 

568 colli-=845B0: table=&37F0 

970 POKE &45B1,84F@:POKE %45B2,%57 

58G POKE table,0:POKE table+1,08 

590 POKE table+2,80:POKE table+5,74 

60G POKE table+4,65:POKE table+5,165 

81@ POKE table+é,15:POKE table+7,35 

62@ POKE table+8,4FF:'"#fin table des territoires 
interdits 

CRT 

&84@ FOR phase=i TO 6 

650 ecran2=ecran 

668 POKE &4SAA,x:POKE %45AB, y 

67@ CALL &489C: ‘deplacement demande 

680 IF PEEK(&45AA)=x AND PEEK(&45AB)=y THEN 890: 
‘pas de deplacement 

690 IF PEEK(%4S5AA) >8G-lar THEN 800: ‘sortie ecran 
interdite 

700 IF (PEEK(&4SAB) 199) OR (y=@ AND FEEK(&45AE) 
3127) THEN 868: ‘sortie ecran 
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71@ POKE &45A8 ,PEEK (&45ÂAA) 

72@ PFOKE %&454A9,PEEK(&45AB) 

750 POKE %45ÂAÀ,1ar 

74@ POKE &45AB,hau 

758 CALL &49A0: "test territoires interdits 

76Q@ IF PEEK(colli)<>@ THEN 8680: ‘interdit 

778 ‘deplacement valide 

780 x=PEEK (&45A8) : y=PEEK (&45A9) 

790 ecran2=PEEK (&45A0) +256%PEEK (&45A1) 

800 POKE &45A0,ecran-256*#INT (ecran/256):POKE &45 
Ai,INT(ecran/256) 

810 POKE &459C,0:POKE %&459D,8&37 

820 CALL %4700: ‘remise en place decor 

850 ecran=ecran2 

840 POKE %&45A0 ,ecran-256*INT(ecran/256):POKE &45 
A1,INT(ecran/256) 

850 CALL %4738: ‘memorisation nouveau decor 

86@ c=buf (phase) :POKE &459C,c-256*INT (c/256) : POK 
E %459D,INT(c/256) 

870 CALL %4760: ‘dessin objet, avant-plan et fond 


880 

890 POKE %45A0,ecran-256*INT (ecran/256):POKE &45 
Al,INT(ecran/256) 

90@ NEXT 

918 GOTO 640 


Modifications de 8.3 pour 8.3b 


30 LOAD'"dessinsB",45:000 
4508 buf (phase) -&2:000+(phase-1)*x(13x25 
900 x=0:y=170:ecran-52880 
918 lar=13:hau-3;z 
540 POKE %&459C,0G:POKE %459D,2&80 
360 colli-&45B9:table-2t8200 
970 POKE %&45B1,%@:POKE %45B2,882 
810 FOKE %459C,0:POKE %459D,%409 


Modifications de 8.3 pour 8.3c 


350 LOAD'"'dessinsC",%3:000 
450 buf (phase) -&30008+(phase-1)*#(21#19) 
900 x=0:y=17/70:ecran-528980 
31@ l1lar=21:hau-1i9 
940 POKE %459C,0:POKE %&459D,2%80 
968 colli-=%45B0:table-&82080 
370 POKE %45B1,%@:POKE %45B2,202 
810@ POKE %459C,0:FOKE %459D,%80 
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Le joystick déplace le module à l’intérieur de l'écran. Vous pouvez 
également remarquer que l'arbre situé sur le sol est intégré au décor {le 
module passe devant), tandis que celui situé plus bas est un avant-plan : le 
module passe derrière. Cela est dû à la routine de restitution d'objets avec 
avant-plans. Il suffit simplement de tracer l'arbre avec les stylos 8 à 15 pour 
qu'il fasse partie du premier plan. 


Nous sommes sur le chemin d’une gestion automatique des objets et des 
décors. Mais, malgré tout, le programme Basic 8.3 est un condensé de 
POKE, PEEK et CALL. De plus, il est extrêmement lent. Pour remédier à cela, 
il nous suffit de transposer la partie finale de ce programme en assembleur. 
C'est le but de la routine 8.4. 


18 ; 
20 sprogramme de deplacement 
30 ;programse 8.4 


40 ; 
45B3 58 XO: EQU #45B3 
45B4 68 YO: EQU #45B4 
45b 70 LARO: EGU #45Ab 
45A7 80 HAUC: EGU #4547 
459€ 9@ BUF:  EQU #459C 
4589 108 BUFFER: EQU #45B9 
45BB 118 DESSIN: EOU #45BB 
45BD 120 JOYST: EQU #45BD 
450 130 ECRAN: EGU #45A8 
4585 140 ECRANG: EGU #45B5 
4587 158 ECRAN2: EGU #45B7 
4548 168 X: EQU #45A8 
4549 178 Y: EQU #45A9 
454 190 LAR:  EGU #45AÀ 
45B 196 HAU:  EQU #45AB 
45AC 208 X1: EQU #45AC 
45AD 210 Y1: EQU #45AD 
ASE 220 LARi: EGU #45 
45AF 230 HAUL: EGU #45AF 
45B8 24@ COLLI: EGU +#45B0 

259 ; 
1400 260 ORG #4109 
4A80 2AAB45 270 LD HL,(ECRAN) 
4005 22B545 288 LD  (ECRANO) ,HL sretenir ancienne pos ecran 
4A8& 228745 2 LD  (ECRAN2) ,H snouvelle pos par defaut=la 

aese 

AAG9 3ABS4S 390 LD A,(X0) 
AAQC  S2AA4S 310 LD (LAR),A 
AAQF  JAB445 320 LD A,(Y0) 
4A12 32AB45 330 LD (HAU),A 
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4h15  SABD45 340 LD A, (JOYST) 
4A18 B7 359 ER A 
4419 C22244 360 JP NZ,PASJOY spas deplace par joystick 
4AiC CD9C48 370 CALL #489C sdeplacement d'apres joystick 
aAiF C32B4A 380 JP  SUITEÏ 
4422 2AAB45 390 PASJOY: LD HL, (ECRAN) 
4425 CDA948 400 CALL #48A9 sdeplacement automatique 
4928 22AB45 410 LD  CECRAN) ,HL 
420 ; 
442B 3AAA4S 430 SUITEL: LD A, (LAR) 
AA2E 4F 440 LD CA 
4A2F  3AB345 450 LD A,(X0) 
4A32 B9 LE] CP € sdeplacement sur X ? 
4433 C24144 470 JP  NZ,SUITE2 joui: ok pour suite 
4436  SAAB4S 490 LD A, (CHAU) 
4839 4F 490 LD C,A 
AASA  SAB445 500 LD A,(Y0) 
4ASD B9 510 CP C sdeplacement sur y ? 
AASE  CAAS4A 520 JP Z,SUITE4 ynon: pas de travail a faire 
930 ; 
4A41 SAAMS 949 SUITEZ: LD A, (LAR) snouvel x 
4A44 4F 990 LD C,A stransfere dans € 
AA45  SAAGAS 560 LD A, (LARO) largeur 
4h48 81 570 ADD AC sadditionnee 
449 FES0 580 CP 88 sbord drait ecran ? 
4A4B  D2AB4A 570 JF NC,SUITES joui:pas autorise. 
4A4E 79 690 LD ASC 3x 
4A4F FEFF 6i8 CP 255 strop a gauche ? 
4A51 CAAU4A 620 JP Z,SUITES 
4A54  SAAB4S 630 LD A, (HAU) snouvel y 
4457 4F 648 LD C,A 
4A58  3AA745 650 LD À, (HAUO) 
4458 81 6bû ADD A,C 
4ASC FEC8 670 CF 200 strop en bas ? 
4ASE  D2A84A 680 JP NC,SUITES 
4461 SAAB4S 690 LD A, (CHAU) 
4A64 FEFF 700 CP 255 ;trop en haut ? 
4h6b  D2AB4A 710 JP  NC,SUITES 
4469  3AAA4S 728 LD A, (LAR) snouvel x 
4A6C  32A845 750 LD (X),A 
AA6F  3AABAS 740 LD A, (CHAU) 
4A72  32A945 750 LD (Y),A snouvel y 
4A7S5  3AA6AS 768 LD A, (LARO) 
AA7G 32AA4S TI0 LD (LAR),A 
AATE 3AA74S 780 LD A, CHAUD) 
AATE S2AB4S 790 LD  CHAU),A 
4A8i CDAU49 808 CALL #49A0 stest territoires 
4494  ZABU4S 810 LD A,(COLLI) 


4487 B7 820 DR À 
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4888 C2AG4A 830 JF  NZ,SUITES ;il y a eu collision 
849 ; 

AASE  SAAB4S 85 LD A,(X) 

AABE 32B345 869 LD (X0),A >menor1se nouvel x 

4A91  3AA9AS 870 LD A,{Y) 

4494 32B445 888 LD (Y0),A nouvel y 

4h97 2AAG45 890 LD HL,(ECRAN) ecran recalcule 

AAA 228745 900 LD  CECRAN2) ,HL 

4A9D C3AS4A 918 JF  SUITE4 

4AAG 3EQ1 928 SUITES: LD Ai 

AAA2 32B045 979 LD  (COLLI),A 

4AAS  2AB545 948 SUITE4: LD HL, (ECRANG) 

4AAB  22A045 950 LD  CECRAN) ,HL 

4AAB  2AB945 968 LD HL,(BUFFER) 

AABE 229C45 978 LD (BUF),HL 

4ABi CD0047 980 CALL #4700 srestitution ancien decor 

4AB4 2AB745 990 LD HL,(ECRAN2) 

4AB7 22E545 100 LD  (ECRANO) ,HL 30k nouvelle pos ecran 

BABA 22A045 118 LD  CECRAN) ,HL 

4AED CD3G47 1828 CALL #4730 ;nemorise nouveau decor 

AACG Z2ABB45 1059 LD HL, (DESSIN) 

AACS 229045 1048 LD  (BUF),HL 

sACE CD@47 is CALL #4768 dessin de l'objet 
1868 ; 

4AC9 2AB545 1678 COLLIS: LD HL,(ECRANO) 

4ACC 22A845 1860 LD  CECRAN) ,HL 

AACF C9 1890 RET 


Pass 2 errors: 00 


Il faut fournir à cette routine les coordonnées de l'objet, sa largeur, sa 
hauteur, son adresse et son adresse écran initiale. Nous pourrons alors 
demander une gestion automatique du joystick répondant aux critères 
définis plus haut. Une facilité a été ajoutée au programme : si la variable 
JOYST contient une valeur différente de 0, celle-ci est prise en compte à la 
place de l’état du joystick, comme si elle en provenait. Il s’agit donc d’une 
valeur de 0 à 15, indiquant un déplacement selon les règles examinées au 
chapitre 6. Cette facilité permet de mouvoir un objet indépendamment du 
joystick, en continu ou non. Elle est essentielle car notre routine de 
déplacement automatique peut ainsi être utilisée pour des objets n’appar- 
tenant pas au joueur, gérés par le programme. 


Il convient de noter les variables que le programme appelant doit 
fournir : 
— XO est l'’abscisse de l'objet lors de l'appel ; 
— YO est l’ordonnée ; 
— LARD et HAUDO sont respectivement la largeur et la hauteur de l’objet ; 
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— BUFFER est l'adresse de la zone de sauvegarde de décor associée à 
l'objet. Chaque objet doit en effet posséder une zone décor qui lui est 
propre (même largeur, même hauteur) ; 

— DESSIN est l'adresse où se situe le codage du dessin. Cette adresse doit 
être modifiée soit lorsque l’on change d'objet, soit lorsque celui-ci entre 
dans une nouvelle phase d'animation. Son dessin change alors, indépen- 
damment de toute autre considération ; 

— JOYST concerne les demandes de déplacement automatique (voir ci- 
dessus). 


Ceci est illustré par le programme Basic 8.4. 


LA ‘#66 EEE EEE DE DE DE DEEE JE EN 

26 ‘** Programme 8.4 *#+ 

SO HIHI EE EN 

40 

90 ‘deplacement d'un objet avec coordonnees et t 
erritoires interdits. 

60 

78 MEMORY &2FFF 

80 LOÂAD"prog8. 10b":LOAD"prog4.1cb": "voir annexe 
& 

90 LOAD"prog4.20b":LOAD'"prog]7.40b": "voir annexe 
6 

180@ LOAD"prog8.20b":LOAD"prog8. ob": "voir annexe 

6 

110 ad=%&4A@0:l1ign-19@ 

12Q ctri=G:REND cH:1F c$="fin" THEN 33 

13:@ FOR i=1 TO LEN(c#) STEP 2 

14Q c=VAL("&"+MID#(C#,1i,2)) 

150 POKE ad,c:ad=ad+i:ctrl=ctrl+c 

168 NEXT:READ teste:IF teste<>ctrl THEN PRINT'Er 
reur DATA ligne"lign:END 

170 lign=lign+i@:GO0TO 120 

180 ” 

190 DATA 2AA04522B54522B7453AB34532AA453AB44532A 
B, 1964 

200 DATA 453ABD45B7C2224ACD9C48C52B4AZ2AAB4SCDA9A 
8, 2332 

210 DATA 22A0453AAA4S54F3AB345B9C2414A3AAB454FS53AE 
4, 2078 

220 DATA 45B9CAASA4AGAAAASAF SAAGASBS1FESOD2804479F 
E, 2646 

2350 DATA FFCAAGA4ASAABASA4F SAA7AS81FECB8D2A04ASAABA 
JS 2687 

240 DATA FEFFD2A84A3AAA4S32A8453AAB4532A9453AA6A 
9 2416 

250 DATA 32AA4535AA74532AB4SCDABG4973ABD4SB7C2AG4AS 


A, 2283 
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260 DATA AS4532B3453AA9453264452AA04522B745C5A54 
A, 2121 

270 DATA S3E0137BG452AB545224804524B945229C45CD004 
73 1744 

280 DATA 2ÀB74522B545224@045CD304724BB45229C45CD6 
G, 2023 

29Q DATA 472AB54522A04509, 827 

500 

31@ DATA fin 

320 ‘ 

330 MODE @ 

340 LOÂD'"'image.bin",%C000: ‘chargement du decor, 
optionnel 

350 FOR 1-0 TO 15 

560 ‘INK I1,ASC(MID#("ACLFSFGJOLCJXSDZQ",1I+1,1))-6 
9: ‘pour couleur 

37Q INK I,ASC(MIDS# ("AMTOSVSJREIIJXSRYO" ,1+1,1))-65 
5° pour monochrome 

380 NEXT 

398 LOAD'"'dessins",23:000 

400 FÜR phase=1i TO 6 

419 c=&308G+(phase-1)*x(7*10) 

420 buf (phase,0@)=c-256*%INT(c/256) :buf (phase,1)=I 
NT (c/256) 

458 NEXT 

440 

458 ‘initialisations variables 

480 ‘ 

47Q x=0: y=170@:ecran=52880 

480 lar=/7:hau-it 

490 POKE %45Â6,1ar:POKE &45A7,hau 

500 POKE &45A8,ecran-256*#INT (ecran/256):POKE %45 
Ai,INT(ecran/256) 

910 POKE %459C,0:POKE &459D,%37 

320 CALL &4730: ‘memorise premier decor 

930 colli-&45B0:table-à&3/7F@ 

5340 POKE &45B1,&F@:POKE &45B2,8537 

398 POKE table,8:POKE table+i,@ 

360 POKE table+2,88:POKE table+3,74 

3/76 POKE table+4,65:POKE table+5,175 

980 POKE table+6,1i5:POKE table+7,25 

370 POKE table+8,&FF: "fin table des territoires 
interdits 

6886 

618 

62@ POKE %45B9,QG:POKE %45BA,%37 

638 POKE &45B3,x:POKE &45B4,y 

640 POKE &45BD,0@ 

650 
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668 FOR phase=i TO 6 

670 FOR I=1 TO 3 

680 POKE &45BB,buf (phase,0):POKE %&45BC,buf (phase 
51) 

690 IF FEEK(%45B4)5; 50 THEN CALL &BDi9 

708 Ci %4A00 

71Q IF FEEK(&45B4)<5Q THEN CALL &BD19 

72Q@ NEXT 

738 NEXT 

748 GOTO 668 


Modifications de 8.4 pour 8.4b 


39@ LOAD'"dessinsE",8&:000 

410 c=%3:000+(phase-1)*x(i3x35) 
47Q x=0:y=170:ecran-52880 

48@ lar=13:hau=3z 

91Q POKE %459C,@:POKE %459D,%890 
9330 colli-%45B0: table-=&93200 

040 PFOFE %45B1,%@:FOKE %45B2,882 
62@ POKE %455B9,0:FOKE %&45BA,%80 


Modifications de 8.4 pour 8.4c 


390 LOÂD'"dessinsC",2:008 

418 c=&:008+{(phase-1)*x(2i1+19) 
478 x=0:y-17/7@:ecran-52880 

490 l1lar=21:hau-=19 

510 POKE %459C,0G:POKE %459D,%00 
930 colli-%45B0:table-=-2%8240 

540 POKE %45B1,%@0:FOKE %&458B2,%82 
620@ FOKE %&45B9,G@:FOKE %&45BA,2&80 


Vous constatez la quasi-disparition des instructions POKE. Il ne reste en 
effet que les initialisations (mémorisation préliminaire du décor, mise en 
place des valeurs initiales des variables) et le changement de phase 
d'animation (modification de la variable DESSIN). Notez également le test 
associé à l'instruction CALL &BD19, permettant de synchroniser l'affichage 
de l'objet avec le balayage de l'écran. Celui-ci dépend de la position 
verticale de l'objet. 


Ce programme nous permet de constater deux choses : d'abord, et 
c'était le but à atteindre, les déplacements s'effectuent désormais à une 
vitesse correcte. Mais, surtout, le programme est beaucoup plus simple. Le 
déplacement est intégralement géré par un simple CALL : restitution et 
mémorisation du décor, blocage des territoires interdits, préservation des 
avant-plans. Nous disposons maintenant d'une routine extrêmement 
puissante. 
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La création des objets graphiques et des images de décor nécessite 
généralement un programme approprié, à moins de recourir au codage 
manuel de chaque octet de la mémoire écran. Nous proposons donc, dans 
ce chapitre, un ensemble de programmes utilitaires à cet effet. Nous n'en 
détaillerons pas le fonctionnement. Ils vous permettront de créer une 
bibliothèque de dessins et d'objets graphiques utilisables dans vos 
programmes d'application. 


Une dernière remarque s'impose au sujet des programmes de ce 
chapitre. Afin de mettre en place un véritable système de gestion des 
objets et décors, les programmes utilisent une structure commune de 
noms de fichiers. Par exemple, un fichier d'extension IME est une image 
créée par l'utilitaire de dessin. La majorité des travaux s'effectuant à partir 
de ces fichiers, nous avons supposé la présence d'un lecteur de disquettes. 
Les travaux seraient d'ailleurs très fastidieux sans un tel accessoire. 
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PROGRAMME DE CRÉATION DE DESSINS 


Mise en œuvre et utilisation 


Le programme Basic charge le fichier binaire SCROLLS.BIN contenant 
ses routines assembleur. Il faut donc créer ce fichier avant d'utiliser le 
programme. Pour cela, entrez le source assembleur ci-joint et assemblez- 
le, puis sortez-le sous forme de fichier. Autre solution : rentrer les codes 
hexadécimaux en mémoire un par un, puis sauver la zone mémoire ainsi 
occupée par une commande SAVE du Basic, sous le nom SCROLLS.BIN. 


10 OPFENOUT''d'': MEMORY 81EFF :LOAD''scrol is‘ :CLOSEOU 
TICLEAR:PRINT CHR$(23)CHR$(O) 

20 MODE O:FEN 14:KEY 138;'"'pen 1:ink 1,15:mode 2" 
+CHR$ (13) 

30 WINDOW n0;,1,20;1;,3:WINDOW n1;,1,20;4,5 

40 DEFINT a-z:DIM col(16) ;h(16) 

90 droite=881FC:gauche=i819E :haut=88110:bas=8815 
7:paran=88397:paîi=i1C00+160x7/73:pa2=pai+73:pa3= 
&1CO0:fulI=8R83AA:cIr=88399:wide=883E0:GOSUE 20 
000 

60 FOR i=0 TO 15:col(i)=i:INK i1;,;i:NEXT:col(16)=- 
4:CALL cir 

70 FOR i=0 TO 159 STEF Z:MOVE ixd,O:DRAW ixd4,1593 
#2,15:MOVE 0,1x#2:DRAW 1593x4;,ix2;,15:NEXT 

80 SYMBOL 255,8FF,881,881,881,881,881,2881,8FF 

90 PENH1,;,14:PAPERHO;,0:CLSH1 

100 FOR i=0 TO 15:1F i=enc THEN PRINTH1,CHR$S(24) 

+CHR$(col(i)+65)+CHR$(24); ELSE PRINTH1,CHRSC 
col(i)+65); 
110 NEXT:FRINTH1 
120 FOR i=0 TO 15 
130 PAPERH1;1:PRINTHI,CHR$ (255) ; 
140 NEXT:PAFERH1,0:PENH1;,15:PRINTH 1 ,CHRSCZ4) +"@" 
CHR$ (24) ; 

150 IF mo=0 THEN 310 ELSE IF mo=? THEN 520 

160 CLS:flag=0:PRINT''SELECTION COULEURS:'":1IF enc 
=16 THEN GOSUB 10020:enc=15:GOSUE 10030 

170 PRINT CHR$(240)+" "'+CHR$S (241) +": COULEUR'"':FRI 
NT CHR$(242)+" "+#CHR$ (243) +": STYLO"; 

180 AS$S=INKEYS:IF CA$C)CHR$S(13)2) AND (a$<)''7'") AN 
D CASCCHRS(Z240) OR A$S)CHR$S(243)) THEN 180 
190 IF a$()''7'" THEN 220 
200 IF flag THEN c=pa3:CALL wide:flag=0:GO0OTO 180 
210 CALL full:flag=1:GOTO 180 
220 IF A$=CHR$(13) THEN mo=Z2:GOTO 52 
230 ON ASC(a$)-239 GOSUB 240,260,280;,290:G0OT0 30 
0 

240 IF col(enc){t1 THEN RETURN:REM ELSE IF enc)0 
THEN IF col(enc)=col(enc-1) THEN RETURN 

250 col(enc)=col(enc)-1:INK enc,;col(enc):G0OTO 10 
030 
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260 IF col(enc))}25 THEN RETURN:REM ELSE IF enc{1 
9 THEN IF col(enc)=col(enc+1) THEN RETURN 

270 col(enc)=col(enc)+1:INK enc;col(enc):GOTO 10 
030 

280 IF enc=0 THEN RETURN ELSE GOSUE: 10020::enc=e 
nc-1:GO0OT0O 10030 

290 IF enc=15 THEN RETURN ELSE GOSUR 10070:enc=e 
nc+1:G0T0 10030 

300 GOTO 180 

310 

Z0 CLS:PRINT''CURSEUR-TRACE" 

330 cou=PEEK(R1CO0+ygx160+xg) :FLOT 4xCxgbx2+1),2 
*# Cuobx2+1) ;,16+N0T(cou):LOCATE cou+1,3:FRINT C 
HR$(241); 

340 a$=UPFERS$SCINKEY#):FLOT d4xCxgbx2+1),2x(Cuyabtxz+ 
1) ;cou:LOCATE cou+1,3:PRINT" ">; 

3350 GOSUE 10010 


360 IF a$=CHR$(13) THEN mo=1:GOTO 150:REM select. 

couleurs 

370 IF a$<'@" OR a$)'"C'' THEN 400 

380 c=ASC(a$)-65:FO0R 1=0 TO 16:1F col(l)=c THEN 
GOSUE 10020:enc=Il:GOSUB 10030:1=17 

390 NEXT:GOSUE 10020:GOSUB 10030:G0T0 330 

400 IF a$(CHR$(240) OR a$)>CHR$(243) THEN 330 

410 IF enc()>1E THEN FOKE 81C00+ygx160+xg;enc:FLl0O 
T 4x(xgbx?2+1),;2x(yobx2+1) ;enc 

420 ON ASC(a$)-239 COSUE 450;,430;,470,490:GOT0 51 
[o) 

430 IF ygb=0 THEN IF yg=0 THEN RETURN ELSE pai=UÙ 
NT(pai-160) :pa2=UNT(paz-160):pa3=UNT(pa3-160) 
z2c=pa3:COSUE 10000:CALL haut. 

440 yo=uyg+(uyg)0)z:uygb=uyob+(uyab)0):RETURN 

450 IF yob=73 THEN IF yg=1593 THEN RETURN ELSE pa 
1=UNT (pañ+160) :pa?2=UNT(pa2+160) :pa3=UNT(pa3+1 
60)tcwpalr:GOSUB 10000:CALL bas 

460 yo=uya-(uyat159) :ygb=ygb-(ygb<793) : RETURN 

470 IF xgb=0 THEN IF xg=0 THEN RETURN ELSE pai=U 
NT(pai-1) :paZ2=UNT (paz-1) :pa3=UNT(pa3-1):c=paî 
:GOSUE 10000:CALL ïäroite 

480 xg=xg+(xg)0):xgb=xgb+(xat)>0):RETURN 

490 IF xgb=73 THEN IF xg=159 THEN RETURN ELSE pa 
1=UNT (pañ+1) :paZ2=UNT (pa2+1) :pa3=UNT(pa3+1)ic= 
pa2::GOSUE 10000:CALL gauche 

500 xg=xg-(xagt159):xgb=xab-(xgtt79) : RETURN 

910 GOTO 330 

520 ’ 

530 CLS:PRINT'COM,. "+#CHR$ (24) +#'"'S'"'4+CHRS$ (24) +#'""-SAU 
E ECRAN'":FRINT CHR$(24)+"L'"'4CHR$(24)+'"-LOAD," 
+CHR$ (CZ4) +"T T4 CHRSC24)+'"-IMAGE'":PRINT CHR$(Z4 
)+"D'"'4#CHR$(24)+'"-FICHIER OBJET"; 

940 AS$S=UPFERS(INKEY$) 

990 IF A$=CHR$(13) THEN MO=0:GOTO 150 

960 IF A$="S" THEN E10:REM save 

970 IF A$="L'"" THEN 6E4O:REM LOAD 

980 GOSUE 10010 

990 IF A$='"D'" THEN 7000:REM OUMF SUR FRINTER 

E00 GOTO 540 

610 CLS:PRINT'NOM FICHIER'":INPUT A$:CLS:FRINT''SA 
VE EN COURS" 
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620 SAVE a$+".ime'";b,81C00;,86400:0FENOUÛUT a$+'",pa 
e":PRINTHS,;xg;ug;paîl;paz;pa3;xgb;ugt:FOR i=0 
TO A1S:PRINTHI;col(i):NEXT:CLOSEOUT:a$="x,.tak" 
11ERA;,Ca$ 

630 GOTO 530 

640 CLEAR:DEFINT a-z:D0IM col(16) ;h(1E6):GOSUE 200 

00:CLS:FRINT''NOM FICHIER'":INPUT A$:CLS:FRINT" 
LOAD EN COURS'"':droite=881FC:gauche=8819E:haut 
=88110:bhas=-8815/7:param=88397:full=883A4A:clr=£& 
8339:wide-883E0 

ES0 LOAD a$+'".ime";,81CO0O:0FENIN a$%+'",.pae":INFUTH 

3;x09;vg;pal;pa2z;pa3;xgb;ygb:FOR i=0 TO 15:INP 
UTHS;col(i):INK i;col(i):NEXT:col(16)=-1:CLO0S 
EIN:c=pa3:GOSUB 10000:CÂALL wide:zmo=0:GOTO 80 

7000 CALL fullzx1=0:y1=0:CLS:PRINT'FOINT HAUT GA 
UCHE ?'"3:FRINT CHR$(23) ; CHK$ CO) ; 

7010 a=TEST(x1;y1):PLOT x1;y1;,0:1A$=INKEYS:FLOT X 
1:5Y1;15:PLOT x1;yl;a1:1F A$<CHR$#(240) OR A$)C 
HR$ (243) THEN IF A$C)CHR$(13) THEN 7010 

7020 IF A$=CHR$(13) THEN 7050 

7030 IF A$=-CHR$(240) THEN Y1=Y1+2 ELSE IF a$=CHKR 
$(241) THEN yi=y1-2 ELSE IF a$=CHR$(242) THE 
N x1=x1-4 ELSE IF a$=CHR$(243) THEN x1=x1+4 

7040 GOTO 7010 

7050 CLS:x2=X1:y2=Y1:PRINT CHR$ (23) ;CHR$ (C1) ; 

7060 LOCATE 1,1:PRINT'"'LAR'3;INTOCCX2-X1+1)/8) :PRIN 
T'HAU''3>;INTOCY2-Y1)/2):MOVE X1,Y1:DRAW X1,Y2; 
15:DRAW X2,Y2:DRAW X2,Y1:DRAW X1,Y11A$=INKEY 
$S:MOVE X1,Y1:DRAW X1,Y2:DRAW X2,Y2:DRAW X2Z,Y 
1:DRAW X1,Y1 

7070 IF AS$=CHR$(13) THEN 7100 

7080 IF A$=CHR$(240) THEN Y2=Y2+2 ELSE IF a$=CHR 
$(241) THEN y2=y2-2 ELSE IF a$=CHR$(242) THE 
N x2=x2-4 ELSE IF a$=CHR$(243) THEN x2=x2+4 

7090 GOTO 7060 

7100 CLS:INPUT'SAVE ADD. ‘“;adrai=ad:FOR Y=Y1 TO 
Y2 STEF -2:A4$="":FOR X=X1 TO X2 STEF 8:FOKE 
ad;,hC(TEST(x;y))#2+h(TEST(x+4 ,;U)):ad=ad+1:NEX 
T:INEXT:PRINT CHR$(23) ; CHR$ (CO) ; 

7110 INFUT “Nom ‘"'3f$:SAVE f$+",imo";b;ali;ad-ai+1 
z2c=pa3:0OFENOUT f$+",.pao':PRINTHI,INT(CX2-X1) 
/8)+1;INTOCY1-Y2)/2):FO0R i=0 TO 15:FRINTH9;c 
olCi):NEXT:CLOSEOUT:a$="x.bak'": ERA ;,@a$:CALL 

wide:GOTO 520 
10000 PFOKE param; VAL('"'R"'+RIGHTSCHEX$SCc;4);,2)3):F0 
KE par am+1;,VALCO'"R'4LEFTSCHEX$Cc,4),2)) :RETU 


RN 
10010 IF UFPFER$(A$)="T" THEN CALL full:WHILE INK 
EY$="":WEND:c=pa3:GOSUE 10000:CALL wide:RET 


URN ELSE RETURN 

10020 LOCATENHT;enc+1,1:PRINTHI,CHR$ (col (enc)+65) 
3 : RETURN 

10030 LOCATEH A ;enc+1;, 1:PRINTHI,CHR$S (24) +CHR$ (col 
Cenc) +65) +CHR$ (24) ; : RETURN 

10040 RETURN 

20000 RESTORE 20000:FO0R i=0 TO 15:REAÂAD h$:HCI)=V 
ALC'"&'"'+H$) :NEXT:RETURN 

20010 DATA 00,40,04,44,10;,50;14;,54,01;,41,05,45;1 
1,:91;195;99 


818 
8100 
8181 
8102 
8193 
8184 
8105 
8106 
8187 
8108 
8189 
8i8A 
810B 
810C 
810) 
818E 
810F 


8118 


8114 
8117 
811A 
811D 
8129 
8123 
8125 
8127 
8129 
812€ 
812F 


8132 


8136 
8139 
813B 
813D 


813F 
8142 
8143 
8144 
8145 


DD215502 


DDSEUG 
DDS601 
DD6E 04 
DD66B5 
015020 
EDB9 

DD23 

DD23 

DD7E04 
DDB6Q5 
C21481 


DD2A9783 


2180F7 
0659 
BEAA 
1681 


DD7E0 
JF 

iA 

Bi 
DD23 
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i8 ; 
20 programme utilitaire - 
38 ;partie assembleur gestion des scrollings et affichages 


49 ; 
50 ORG #8108 
60 DEFB 
78 DEFB 64 
80 DEFB 4 
98 DEFB 68 
109 DEFB 16 
110 DEFB 88 
120 DEFB 20 
130 DEFB 84 
149 DEFB i 
150 DEFB 65 
168 DEFB 5 
178 DEFB 69 
180 DEFB 17 
190 DEFB 81 
200 DEFB 21 
218 DEFE 85 
228 ;SCROLLING VERS LE HAUT DE DEUX LIGNES 
238 HAUT: LD IX,TABLE ;1X pointe sur 3e ligne ecran 
graphi que 
249 LOOP: LD E,(IX#) 
250 LD D,(IX+i} ;DE=adresse ligne du haut 
268 LD L,(IX+4) 
270 LD H,(IX+5) ;H=adresse 2 lignes +bas 
280 LD BC,80 88 octets a translater 
290 LDIR stransfert 
300 INC IX 
319 INC IX ÿligne suivante 
320 LD A,(IX+4) 
330 OR (IX+5) fin table ? 
340 JP NZ,LOOP 
350 ;remplissage des deux dernieres lignes 
368 ;pour quadrillage 
370 LD IX, (PARAM) sadresse de la ligne dans 
l'inage 
390 LD HL,#F780 savant derniere 
398 LD B,88 388 octets a reaplir 
408 LD C,170 spoint de gauche allume 
40 LD D,#81 spoids fort table masques 
428 ; 
430 PPI: LD A,(IX) scouleur du point 
448 LD E,A 
450 LD  A,(E) ÿaasque du point 
468 ŒR OC sajoute point gauche 
478 INC IX en avant dans la ligne inage 
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8147 77 
8148 23 
8149 10F4 


814B 2180FF 
B14E 0650 
8150 SEFF 
8152 77 
8153 23 


8154 


8156 


8157 
815B 
B1SE 
8161 
8164 
8167 
8i6A 
BiëC 
816€ 
8170 
8173 
8176 


8179 
8i7C 
817€ 
8190 
8182 


8186 
8189 
818A 
818B 
818C 
818D 
818 
8190 


8192 
8195 
8197 
8199 
819A 
819B 


819) 


1QFC 


C9 


DD218F65 
DD5E04 
DD5685 
DD6E08 
DD66i 
015098 
EDB8 
DD2B 
DD2B 
DD7E08 
DDB6Bi 
C25B81 


219001 
0650 
QEAÀ 
1681 
DD249783 


DD7E08 
JF 

1A 

Bi 

77 

23 
DD25 
10F4 


219009 
0650 
SEFF 
T7 

23 
10FC 


C9 


480 
490 
508 
918 ; 
520 
550 
548 
500 PP2?: 
500 
570 
380 ; 
590 


LD 
INC 
DJNZ 


LD 
LD 
LD 
LD 
INC 
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(HL) ,A 
HL 
PPi 


HL,#FFB8 derniere 


B,80 


A,255 
(HL) ,A 
HL 


DJNZ PP2 


RET 


608 ;SCROLLING VERS LE BAS DE DEUX LIGNES 


618 BAS: 
628 LAAP: 
630 
640 
650 
668 
670 
689 
690 
700 
718 
720 


758 ;remplissage quadrillage en haut 


748 
750 
768 


780 


LD IX,TABFIN 
LD E,(IX#4) 
LD  D,(IX+5) 
LD L,(Ix#@) 
LD H,(IX#1) 


32 lignes ecran +bas 


icette ligne 


LD EC,680 :88 octets a transferer 
LDIR scopie de la ligne 

DEC IX sdescend dans la table 
DEC IX 

LD AÀ,(IX+@) soctet 

OR (IX+i) fin de la table ? 

JP  NZ,LAAP non: continuer 


LD HL,#190 
LD B,80 

LD C,170 

LD D,#8t 

LD IX, (PARA) 


LD A,(IX+0) 
LD E,A 

LD A,(DE) 
OR C 

LD (HL),A 
INC HL 

INC IX 

DJNZ PLAPI 


LD HL,#C990 
LD B,80 

LD 4,255 

LD  (HL),A 
INC HL 

DINZ PLAP2 


RET 


ligne a dessiner 

189 octets a remplir 
spoint de gauche allume 
poids fort table masques 
sadresse ligne dans image 


scouleur point 


;masque point 
;les deux points positionnes 


819€ 
81A2 
B1AS 
8148 
8149 
81AA 
BLAE 
BIAE 
8iB0 
8iB2 
81B4 
81B7 
81BA 


81BD 
8gici 
BiCS 


8107 
BICA 
8iCD 
81D0 
81D1 
81D4 
8iD5 
8116 
89108 
81D9 
81DC 
B1DE 
B1E0 
81E2 
BIES 
81E8 
81EB 
81EC 
BIEE 
8iFQ 
8iF2 
8iF5 
BiF8 


BiFB 
BiFC 
8200 
8205 


8209 


DDSE89 
DD5681 
6B 

62 

23 
ai4F 09 
EDBO 
DD23 
DD23 
DD7E88 
DDB6B1 
C2A281 


FD249783 
DD215582 
168i 


DD6E GB 
DDé6Bi 
814F 00 
09 
FD7EG8 
SF 

1A 
F&AA 
77 
G168FF 
FDG9 
DD23 
DD23 
DD6EUO 
DD66@i 
Bi4F00 
89 
36FF 
DD23 
DD25 
DD7E00 
DDB6Bi 
C2C781 


C9 


DD215582 
DD6E OA 
DD66g1 
Bi4F00 
99 
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978 ;SCROLLING VERS LA GAUCHE DE 2 POINTS 
DD215582 988 GAUCHE: LD 


IX, TABLE 
E,(IX+0) 
D, (IX#1) 
L,E 

H,D 

HL 
BC, 79 


IX 

IX 

A, (IX+0) 

(IX+1) 

NZ ,LUUP 

quadrillage a droite 
IY, (PARAM) 

IX, TABLE 


D,#8i 


L,(IX+) 
H, (IX+1) 
BC, 79 
HL,BC 

A, (IV) 
E,A 

A, (DE) 
170 
(HL) ,À 
BC,-160 
IY,BC 

IX 

IX 

L, (IX+0) 
H, (1X+#1) 
EC,79 
HL,BC 
(HL) ,255 
IX 

IX 

A, (IX+Q) 
(IX+1) 
NZ,PLUPI 


poids fort adresse masques 


scouleur point 


smasque point 
;ajoute point gauche 


spoint du dessus dans image 


1419 ;SCROLLING VERS LA DROITE DE 2 FOINTS 


998 LUUP: LD 
1000 LD 
1010 LD 
1020 LD 
1038 INC 
1040 LD 
1050 LDIR 
1060 INC 
187 INC 
1089 LD 
1890 OR 
1100 JF 
1118 sremplissage 
112 LD 
1130 LD 
1149 LD 
1158 ; 

1168 PLUPI: LD 
1178 LD 
1189 LD 
1190 ADD 
1200 LD 
1210 LD 
1220 LD 
1239 OR 
1240 LD 
1250 LD 
1268 ADD 
1270 INC 
1280 INC 
120 LD 
1:00 LD 
1310 LD 
1320 ADD 
1330 LD 

1340 INC 
1350 INC 
1360 LD 
1370 OR 
1380 JP 
1390 ; 

1400 RET 
1420 DROITE: LD 
1430 LEEP: LD 
1449 LD 
1450 LD 
1469 ADD 


IX, TABLE 


L, (IX40) 
H,(IX#) 
BC,79 
HL,BC 
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828A 
820B 
820C 
820D 
820F 
8211 
8213 
8216 
8219 


821C 
8220 
8224 
8226 
8229 
822C 
822F 
230 
82 


8253 


8234 
823 
8239 
823 
823D 
8240 
8243 
8245 
8247 
249 
824C 
24F 
8252 
8255 
8299 
8265 
8275 
8285 
8295 
82A5 
82B5 
8205 
82D5 
B2E5 
B2F5 
8585 
8315 


8325 
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ES 

Di 

2B 
EDBB 
DD23 
DD23 
DD7E0Q 
DDB6UI 
C20882 


FD2A9785 
DD215582 
1681 
DD6E 00 
DD660@i 
FD7EG0 
JF 

1A 
FGAA 
77 
Q168FF 
FDA9 
DD23 
DD2 
DD6EGQ 
DD6681 
SGFF 
DD23 
DD23 
DD7EQ0 
DDE6Q1 
C22682 


C9 

000 
9@C190C9 
EQCiERC9 
30C230CA 
8@C2B0CA 
D@C2DACA 
20C320CB 
7@C37QCE 
COC3COCB 
1QC41QCC 
bQC46QCC 
B@CA4B@CC 
BQC5aaCD 
JACSSQCD 
AGCSABCD 


1470 PUSH HL 

1480 POP DE 

1490 DEC Hi 

1508 LDDR 

1518 INC IX 

1520 INC IX 

1530 LD A,(IX+#@) 

1540 OR (IX+i) 

1550 JP  NZ,LEEP 

1560 ;remplissage quadrillage a gauche 

1570 LD IY,(PARAM) 

1588 LD IX,TABLE 

1590 LD D,#8i 

1608 PLEPI: LD L,(IX+) 

1618 LD H,(IX#i) 

1620 LD A,(IY) scouleur point 

1630 LD E,A 

1648 LD A,(DE) smasque point 

1650 œR 178 ;ajoute paint gauche 

1668 LD (HL),A 50k 

1678 LD EC,-16@ 

1680 ADD IY,BC 

1690 INC IX 

1708 INC IX 

1710 LD L,(IX+B) 

1720 LD H,(IX#i) 

1730 LD  (HL),255 

1740 INC IX 

1750 INC IX 

1760 LD A,(IX#) 

1770 OR  (IX+1) 

1780 JF  NZ,FLEFI 

1790 ; 

1800 RET 

1910 DEFW #0008 

1820 TABLE: DEFW #C190,4C990,#D190,#0990,4E 190, HE990,4F 190, HF 990 
1850 DEFH #CIEU,#C9E0,#D1E0,#D9E0,#E1EU,#E9EQ,#F 1E0,#F9E0 
1840 DEFW #C250,#CA30,#D250, #DATU ,#E 250, #EASO,#F 250 ,#F AS 
1850 DEFW #C280,#CAGG, #D280,#DA90, HE 280 ,#EAG0 ,#F 260, #F AG 
1868 DEFH #C2D0,#CADG,#D2D0, #DADG ,#E 200, #EADG, #F 200, #F ADQ 
1870 DEFH #C320,#CB20,#D320,#DB20,#E320,#EE20,#F 320,#FB20 
1880 DEFW #C370,#CE70,#D370,#D870,#E370,#EB70,#F 370 ,#FB70 
1898 DEFW #C3C0,#CBCO,#D3C0, #DBCO, HE 3CA, #EBCG,#F 3C0, #FBCO 
1900 DEFW #C410,#CC10,#D410,HDC10,#E410,#EC10,#F 410, #FC1Q 
1910 DEFW #C460,#CC60,#D460,#DC60,#E 400, #ECG, HF 460, #FCEQ 
1920 DEFW #CA4R0,#CCEG, #D4B0, #DCBG,#E4BG, #ECE0, #F 4B0, #FCEQ 
1950 DEFW #C500,#CD00, #D500, #DD00, #E 500, #E DUO, #F 500, #F DO 
1940 DEFW #C550,#CD50, #DSS0, #DDS0, KES, #EDSQ, #7 950, #F 56 
1950 DEFW #CSAG, #CDAQ, #DSAG, #DDAG, #ESAG, #EDAG, #F 5AB, #FDAG 


8335 
8345 
8355 
8365 
8374 

385 

30 
8395 
8397 


8399 
839€ 
B39E 
ESAI 
B3A2 
B3AS 
83A4 
B3AS 
83A6 

349 


83AA 
AGAE 
B3B2 


8354 
85B7 
85BA 


83BC 
03BF 
83C0 

SCI 
8303 


3C4 
83C6 
B3C9 
S3CA 
3CB 
B3CC 


83CD 
83CF 
8320 


FQCSF@CD 
4QC84GCE 
9@C67QCE 
EBC6EBCE 
30C720CF 
8QC7aûCF 
8QEFO0F7 
oua 

tou 


210810 
1698 
010064 
72 

93 


à 


@B 
78 
Bi 
C2A193 
C9 


DD219385 
FD21081C 
2681 


DDSEUG 
DD56@1 
0650 


FD7E00 
&F 

7 
CE27 
4F 


FD23 
FD7E00 
6F 

JE 

Bi 


12 


FD23 
13 
BEA 
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196 DEFW #CSF0,HCDFG,#D5F 0, HDDFO,#E5F 0, #EDFO,#F5F0,#FDFQ 
1970 DEFW #C648,#CE 40 ,#D64D, #DE4Q,HEG40,HEE 40 ,#F 640 ,#FE40 
1984 DEFU #C690,HCE9O,#D690,#DE90,#E690,#4EE90,#F 690 ,HFE9Q 
1998 DEFW HC6E0,#CEEQ,HDGE D, #DEFQ, HEGEN,HEEEU,#F6E0,#FEEU 
2008 DEFW #C750,4CF30,#0750,#DF230,#E730,#EF 30 ,#F750,4FF 30 
2019 DEFH #C700,#CF80,#D790,#DF 00 ,#E 70 

2020 TAËFIN: DEFW #EF60,4HF760,4FF80 

2050 DEFW #GUD 

2040 FARAM: DEFH 0 

2050 ; 

2068 ;EFFACEMENT IMAGE 

2079 ; 

2000 CLS: LD HL,#1C00 

2090 LD D,ù 

210 LD EC,téBx16ù 

2118 POFOF: LD (HL),D 

2120 INC HE 

2130 DEC BC 

2144 LD AE 

2154 ŒR C 

216 JF NZ,FOPOP 

2178 RET 

2198 ; 


2198 ;copie ecran de l'image 
2290 ; 
2218 FULL: OLD IX,TABFIN+4 


2220 LD IY,#1C00 
2230 LD H,Hai 
2249 ; 

2250 FF: LD E,(Ix+@) 
2260 LD D,(IX+#1) 
2270 LD E,E9 
2288 ; 

2290 PF2: LD A,(IY+8) 
2300 LD L,A 
2319 LD A,(HL) 
2320 SLA À 

2339 LD C,A 
2340 ; 

2350 INC IY 

2360 LD A,(IY+8) 
2370 LD L,A 
2380 LD A,(HL) 
2 ŒR € 

2400 LD (DE), A 
240 ; 

2420 INC IY 

2450 INC DE 

2 DJNZ PF2 


derniere adresse=bas ecran ptr 
;debut image 
‘poids fort table masques 


sadresse ecran 
380 octets à inscrire 


scouleur point gauche 


;masque du point 
;decalage a gauche 


spoint suivant=a droite 
scouleur point droite 


;masque point 
sajoute point deja inscrit 
ajoute point droite a l'ecran 


spoint suivant 
soctet ecran suivant 
sfinir cette ligne 
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2450 ; 
85D2 DD2B 246 DEC IX 
83D4 DD2B 2470 DEC IX ;continue dans la table en 
remontant 
83D6 DD7E00 2480 LD A,(Ixt@) 
83D9 DDB6BI 2490 OR (IX+1) ÿfin table ? 
83DC C2B493 2500 JF NZ,PF 
83DF C9 2510 RET 
2528 ; 
2530 ;copie image dans grille 
2540 ; 
83E0 DD219383 2550 WIDE: LD IX,TABFIN+4 stable ecran 

3E4 FD2A9783 2560 LD  IY,(PARAM) sadresse debut fenetre image 

83E8 2681 2570 LD H,#Bi ÿpoids forts dasques 
2580 ; 

SEA DDS5E08 2598 PV: LD E,(IXr) 

SED DD56@i 2600 LD D,(IX+i) sadresse ecran réelle 
83F0 O65Q 2610 LD B,88 348 octets a ecrire 
83F2 3EFF 2620 LD A,255 

2630 ; 
85F4 12 2648 FV2: LD (DE),A 
83F5 15 2650 INC DE 
83Fb 1@FC 2668 DJNZ PV2 
2678 ; 
83F8 DD2E 2688 DEC IX 

83FA DD2B 2690 DEC IX 
83FC DDSE0G 2708 LD E,(IX+@) 
83FF DD56@1 2710 LD D,(IX+1) 

6402 0650 2720 LD E,9û 
2738 ; 
8404 FD/E0Q 2740 PVS: LD A,(IY#) scouleur paint 

8407 6F 2750 LD L,A 
8498 7E 2760 LD A,(HL) snasque point 
8409 FGAA 2770 OR 178 spour grille 
B40E 12 2780 LD (DE) ,A istockage ecran 
84nc 15 2790 INC DE ;avance ecran 
940D FD23 2800 INC IY javance iñage 
848F 10F3 2810 DJNZ PVS ;continue copie ligne 

2824 ; 

8411 DD2B 2830 DEC IX 
8413 DD2B 2840 DEC IX 
8415 115000 2850 LD DE,88 
8418 FDi? 286 ADD IY,DE ssauter à la ligne du dessus ! 
8414 DD7EUU 2878 LD A,(IX+) 
841D DDBEOI 2888 OR  (IX+i) 

8420 C2EA83 2890 F NZ,FV 

8423 C9 2900 RET 


Pass 2 errors: 00 
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Mode d'emploi 


Le programme comporte trois modes, la touche ENTER ou RETURN 
permettant le passage du 1 au 2, du 2 au 3, ou du 3 au 1. 


Le mode 1 est “CURSEUR TRACE”. Dans ce mode, le curseur clignote 
dans la grille. Vous pouvez alors le déplacer avec les touches flèches du 
clavier. La couleur de tracé est indiquée au-dessus du dessin par une lettre 
en vidéo inverse. |! y a 16 lettres, représentant les 16 stylos (la lettre en elle- 
même indique la couleur du stylo : A pour 0, B pour 1, jusqu'à “]" pour 26). 
Le symbole suivant, “ ”, représente un stylo fictif transparent. 


Pour sélectionner un stylo de tracé dans le mode 1, il suffit de taper la 
lettre qu'il représente. Le dernier stylo (“@") permet de déplacer le curseur 
sans effacer le dessin. 


La flèche qui se trouve au-dessus d’une des lettres indique en quel stylo 
le point sous le curseur est tracé. Enfin, la touche “” f ” (à côté de CLR, et 
non sur le pavé des flèches curseur) permet de visualiser l'écran en taille 
normale. Un deuxième appui de cette touche ramène l'écran en zoom 4/1. 


Le mode 2 permet de modifier les couleurs associées aux stylos, les 
flèches curseur horizontales choisissent le stylo, et les flèches verticales la 
couleur. La touche “ T ” (à gauche de CLR) affiche l'écran en entier et taille 
normale, permettant ainsi de choisir les couleurs plus facilement. Il faut 
appuyer une deuxième fois sur la touche avant de passer en mode 1 ou 3. 


Le mode 3 autorise quatre opérations. Les deux premières, “SAUVE 
ECRAN" et “LOAD”, effectuent une sauvegarde ou un chargement de tout 
l'écran (avec tout ce qui est dessiné, y compris les zones non affichées à 
cause du mode Zoom) et des couleurs de stylos. On peut ainsi sauver d'un 
bloc tout le travail en cours et le reprendre ensuite. Attention : les fichiers 
IME et PAE créés par cette option ne sont pas directement récupérables. Le 
fichier IME contenant l'image utilise en effet un format de stockage 
particulier (26 Ko de mémoire) afin d'optimiser les travaux de dessin. Pour 
transformer ce fichier en image écran utilisable, il suffit d'utiliser l'utilitaire 
destiné à cet effet (voir partie Il). 


La fonction “ ? ” (touche à côté de CLR) permet d'avoir une vision globale 
de l'image, comme dans les autres modes. Et enfin, “D” permet de 
sauvegarder un objet dans un fichier binaire. Pour cela, il faut indiquer le 
point supérieur gauche de l'objet, puis inférieur droit. Le programme 
affiche la largeur et la hauteur en nombre de points, il faut les noter. 
Ensuite, le programme demande à quelle adresse il doit placer le codage 
binaire de l’objet. Cette adresse doit être choisie de façon à ne pas écraser 
les routines LM du programme. On peut le placer n'importe où entre $1C00 
et $7000, par exemple. Il convient dans ce cas de sauver préalablement 
l'écran (avec l'option “S”) car l'objet créé à partir de l'écran peut écraser 
celui-ci sur une petite partie (pour faciliter les traitements, le programme 
utilise en effet une image logique de l'écran complet à partir de l'adresse 
1CO0). 
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Le programme affiche, tant que l'objet n’est pas défini, les valeurs de 
LAR et HAU afin de vous aider à leur attribuer une valeur précise. Cela 
permet par exemple de créer sans erreur différentes phases d'animation 
d'un objet. 


Les fichiers IME et PAE 


L'option commande “S” du programme envoie dans un fichier d'exten- 
sion IME (“IMage Ecran”) le contenu de l'image. Ce fichier peut être 
rechargé ou par le programme de dessin (afin de continuer le travail 
interrompu) ou par l'utilitaire de création d'image, afin de le transformer en 
véritable image écran, laquelle pourra être chargée en mémoire écran par 
une commande LOAD en Basic. Les variables de travail associées à cette 
image dans le programme de dessin (c'est-à-dire l'endroit du curseur de 
tracé, de la fenêtre d'affichage, etc.) sont sauvegardées dans un fichier de 
même nom que IME mais d'extension PAE “PAramètres Ecran”). Les 
couleurs associées aux 16 stylos dans ce dessin sont également sauvées 
dans ce fichier. 


Il ne faut pas effacer le fichier PAE : en effet, les utilitaires suivants 
l'utilisent pour récupérer les couleurs de stylos. 


Les fichiers IMO et PAO 


L'option “D” du programme crée les fichiers IMO et PAO de façon 
similaire à “S”. Les fichiers d'extension IMO (“IMage Objet”) représentent 
le contenu exact d’un objet graphique ; il est donc possible de les récupérer 
sans formalités par une commande LOAD en Basic. Le fichier PAO 
(“PAramètres Objet”) de même nom contient les données caractéristiques 
de cet objet : largeur (variable LAR), hauteur (variable HAU), et couleurs 
des 16 stylos. Si le programme d'application s'assigne de lui-même ces 
valeurs, le fichier PAO peut être effacé. Néanmoins, l'utilitaire de compac- 
tage d'objets livré dans les pages suivantes l'utilise pour vérifier l'homogé- 
néité des données. Les données sont stockées dans le fichier de la façon 
suivante : 


LAR , HAU 
couleur stylo 0 
couleur stylo 1 
… etc … 
couleur stylo 2 
fin du fichier. 
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On peut les récupérer par la séquence suivante : 


OPENIN ‘’nom.PAO'’ 
INPUT +#9,lar,hau 
FOR i=0 TO 15 
INPUT +#9,c 
INK i,c 
NEXT i 
CLOSEIN 


Lorsque vous utilisez le programme pour créer différentes phases 
d'animation d’un même objet, vous devez prendre garde aux points 
suivants : 

— toutes les phases sauvées sous forme d'objet par la commande “D” 
doivent avoir des valeurs LAR et HAU identiques ; 

— les couleurs des 16 stylos doivent être identiques pour chaque phase 
ainsi sauvegardée. || convient donc de les choisir avant tout dessin. 


CRÉATION DE DÉCOR 


Le fichier décor 


Cet utilitaire permet la création d'une image écran véritable à partir d'un 
fichier IME créé par le programme précédent. 


Le programme affiche avant tout la liste des fichiers IME disponibles. 
L'utilisateur indique alors son choix. Le programme crée, à partir du fichier 
choisi, un fichier de même nom et d'extension SCR (“SCReen”, c'est-à-dire 
Ecran en anglais) qui correspond directement au contenu de la mémoire 
écran. Ensuite, l'utilisateur a la possibilité d'effacer le fichier IME original. 
Ceci est recommandé lors de la création de décors, afin de récupérer de la 
place sur la disquette (le fichier IME occupe 26 Ko). Néanmoins, dans 
certains cas, vous pouvez ressentir le besoin de garder ce fichier. Vous 
pouvez par exemple récupérer une image et la retravailler ultérieurement, 
ce qui ne sera pas possible si vous effacez le fichier IME. 


16 MODE 2:1INK 6,0: 1INK 1,15:BORDER GB: PRINT'ssss C 
REATION DE FICHIER ECRAN s5#+° 


26 PRINT:PRINT'LISTE DES FICHIERS DISPONIBLES: ": 
AS=" 1H": :DIR,eAS 

38 LOCATE 1, VPOS (#6) -2: INPUT"Votre choix ";nf#$:1 
F INSTR(nf$,".") THEN nf$1EFT$(nf$,INSTR(nf$, 
SL) 

468 PEMORY L1BFF:LDAD'"scrolis":LOAD nf$+"._ime”,&i 
CcPo 
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268 OPENIN nf$+".pae":INPUTS9,a,a,a,a,a,a,a:FOR :i 
6 TO 15: INPUTS9,c:INK 1,c:NEXT:CLOSEIN 
68 MODE G:CALL SBSAA: SAVE nf$+"._scr",b,4C086,165 
84: a$-"s#.bak"::ERA,6a$ 
78 INK 1,15 
86 MODE 2:PRINT “Vous pouvez maintenant effacer 
LI 
r$:IF UPPERS(a$)="OUI" THEN a$-nf$+"._ime"::ERA 
,8a$ 
96 MODE 6:1INK 6,6:INK 1,18:CALL SSSAA: WINDOW #0, 
1,26,1,5 
1886 PRINT "SAISIE TERRITOIRES" 
119 ad=&i1iC@B@8:PRINT"-X- fin de saisie”":x1-0@:yi=0 
126 x=x1:y=y1:h$-CHRS$S (2468) : b$=CHRS$S (241) : g$—CHRS ( 
242) =: d$=CHR$ (243) =LOCATE 1,3: PRINT"HAUT GAUCH 
E (“+g$+h$+d$tb$+")"; 
138 Zz$=INKEYS:1IF z$="x" OR z$="X" THEN 328: "fin 
140 IF z$=-CHR$ (13) THEN 2168: ‘droite 
150 IF z$-h$ THEN y=y-1:1F y<@ THEN y=6:GOTO 190 
ELSE 190 
168 IF z$=-b$ THEN y=y+1:1F y>199 THEN y=199:60T70 
190 ELSE 1970 
170 IF z$=g$ THEN x=x-1:1F x<8 THEN x=-@: 6010 1970 
ELSE 196 
189 IF z$=-d$ THEN x=x+1:1F x2>159 THEN x=19597:60T0 
196 ELSE 198 
196 PRINT CHR$ (23) CHRS$ (1); =: PLOT x#4,399-ya2,15:P 
LOT x#4,35399-ys2,15 
288 60OTO 130 
216 POKE ad,INT(x/2)=:POKE adti,y:=LOCATE 1,3: PRIN 
T“BAS DROITE (“+g$+h#$+d$+b$+")";::x1=x2:y1=y 
2206 Z$=INKEYS:IF z$="x" OR z$="X" THEN 3528: fin 
2306 IF z$=CHR$(13) THEN 369: fin 
240 IF z$=h$ THEN y=y-1:1F y<@ THEN y=6:60T0 2860 
ELSE 784 
298 IF z$=-b$ THEN y=y+1:1F y>199 THEN y=199:6D0T0 
284 ELSE 269 
2868 IF z$-g$ THEN x=x-1:1F x<@6 THEN x=@:60T0 289 
ELSE 2860 
2706 IF z$-d$ THEN x=x+1:1F x>159 THEN x=159:6G0T0 
288 ELSE 289 
2868 PRINT CHR$(23)CHRS (1); : FOR i=1 TO 2: PAOT x1x 
4,399-2#ÿ1:DRAW x1#4,399-yx#2:DRAW x#4,399-yx2 
:DRAW x#4,399-y1#2:DRAW x1#4,399-2#y1:NEXT 
2986 GOTO 220 
3506 POKE ad+2,INT((x-x1+1)/2)=:POKE adt3S,y-y1+i:a 
d=ad+4:PRINT CHR$ (23) CHRS$ (0); =:FOR x2=4#x1 TO 
4#x 
510 PLOT x2,399-2=y1,15:DRAW x2,399-2#y=:NEXT:x1= 
x=yi=y:=:60TO 128 
528 POKE ad,255: SAVE nf$+".ter",b,%1C868,ad-&1c@w 
+1=:a$-="#.bak"::ERA,68a$:RUN 
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Les territoires interdits 


Une fois le fichier SCR créé, le programme affiche l'image et vous 
propose de rentrer les territoires interdits un à un. Pour cela, il suffit de 
déplacer le curseur sur le point situé en haut à gauche d'un territoire, de 
frapper ENTER ou RETURN, puis de même pour le point inférieur droit de la 
zone. Le territoire correspondant est rempli par le programme afin de le 
distinguer du reste du décor. Vous pouvez ainsi mémoriser plusieurs 
territoires interdits. Une fois le travail achevé, une pression sur la touche 
“X" du clavier permet la création du fichier d'extension TER contenant les 
données des territoires ainsi stockées. Ce fichier est directement utilisable 
sous Basic : il contient l’image exacte de la table des territoires interdits, 
selon la structure définie au chapitre 8 Un programme d'application 
utilisant la routine 8.4 pourra donc récupérer la table par une instruction 
LOAD “nom.TER",adresse suivie de deux POKESs destinés à indiquer à la 
routine l'adresse de la table (voir le programme d'application 8.4). 


COMPACTAGE DE PHASES D'ANIMATION 
D'UN OBJET 


Mode d'emploi 


Ce programme permet de compacter en mémoire les différentes phases 
d'animation d'un même objet. || suppose avant tout que ces phases aient 
été créées par le programme de dessin (option commande “D"“). Les 
fichiers PAO doivent également être présents. 


Avant toute chose, le programme vous propose d'effacer les fichiers PAO 
et IMO de chaque phase au fur et à mesure de leur compactage en 
mémoire. Pour l'accepter, il faut entrer OÙI en toutes lettres. Cette option 
n'est utile que dans le cas où vous êtes bien certain d'avoir fini de travailler 
sur ces phases. De même que pour le programme de création de décor, elle 
permet surtout de récupérer de la place sur une disquette. Mais si vous 
avez gardé le fichier IME contenant les phases, il vous sera facile de recréer 
les fichiers IMO et PAO correspondants à partir de celui-ci, par l'intermé- 
diaire du programme de dessin. 


Ensuite, le programme affiche la liste des fichiers image objets dont il 
dispose sur la disquette. L'utilisateur peut entrer, un par un, les noms des 
fichiers contenant les phases. Cela fait, il choisit un nom pour le fichier final 
(celui qui contiendra les phases compactées en mémoire). 
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18 DIM co(is5) 

26 MODE 2:INK @,0:INK 1,1@: BORDER @ 

30 PRINT'"'###x CREATEUR DE FICHIERS DESSIN *x##x" 

40 MEMORY %2FFF 

50 PRINT:PRINT:INPUT "Dois-je effacer les fichie 

rs originaux de chaque phase (OUI/NON)'";a#:f1lg 
= (UPPER# (a+) ="OUI") 

68 at="+.imo"::DIR,@a$ 

76 PRINT "Entrez les noms des fichiers contenant 

80 PRINT'"les phases de l'objet un par un, puis 

98 PRINT'"tapez ENTER seul pour finir "sPRINT 

108 fi+=".":no=0@:ad=%5:000 

11Q WHILE fi$<>"" 

129 no=no+i 

13Q PRINT "Fichier No'":no;:INPUT "Nom "s#fi#sIF I 
NSTR(fi1#,".") THEN fFi#=LEFT#(fi#,INSTR(fFi#,". 
“")—1) 

140 IF fi+="" THEN 200 

15Q OPENIN fi$+".pao":INPUT #9,1lar ,hau:IF noïi T 
HEN IF lar<ilari OR hau<haui THEN PRINT'"CONF 
LIT DE TAILLE !'":G6G0T0 150 ELSE ELSE haul=hau: 
lari=lar 

168 FOR i=0 TO 15: INPUT#H9,c:IF noi THEN IF cc 
o(i) THEN FRINT'CONFLIT DE COULEUR"::G0OTO 1350 

ELSE ELSE co(i)=c 

17@ NEXT 

189 LOAD fi$+".imo",ad:ad=ad+lar*hau 

190 IF flqg THEN af=fi#+".imo"::ERÂA,@Gat:at=fi#f+". 
pao"::ERA,@af 

2608 WEND 

2106 INPUT "Sous quel nom dois-je sauver 1 ''ensemnb 
le des images "“;fi#:1F INSTR(fi#,".") THEN fi 
S=LEFT#H(fi#,INSTR(fFi#,".")—-1) 

220 SAVE fitt".obj",b,%3000,ad-%3088+1:O0OPENOUT f 
i$+".par'":PRINTH9,lari,hauli,no-1:FOR i=0 TO i 
S:PRINT#H#9,co(i):NEXT:PRINT#9,ad+i1i:CLOSEOUT 

230 RUN 


Les fichiers OBJ et PAR 


Le programme crée deux fichiers : le premier, d'extension OBJ (“OB- 
Jet”) est la réplique exacte de la mémoire, de la première phase à la 
dernière. || est possible de charger ce fichier par une commande LOAD 
“nom.OBJ”",adresse. Le second fichier, d'extension PAR, contient les 
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paramètres associés à ce fichier Obj. On les récupère par la séquence Basic 
suivante : 


OPENIN ’nom.PAR" 
INPUT +#9,lar,hau,nombre de phases 
FOR i=0 TO 15 
INPUT+#9,c 
INK i,c 
NEXT i 
CLOSEIN 


Les adresses de début de chaque phase de l’objet peuvent alors être 
calculées facilement : si le fichier “nom.OBJ" a été chargé à l'adresse ADD, 
les adresses de chaque phase sont les suivantes : 

ADD 

ADD + lar + hau 
ADD + lar *x hau *x 2 
ADD + lar + hau * 3 
et ainsi de suite. 
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Les mathématiques de l'informatique 


L'homme a dix doigts et, depuis ce temps-là, il compte habituellement en 
utilisant la base 10. 


Lorsque l'homme de Cromagnon, du haut de son rocher, voulait dire à 
son collègue se trouvant non loin de là, qu'il pouvait dénombrer 
58 aurochs dans la plaine, il devait d'abord lever 8 doigts (unité), puis un 
instant plus tard, 5 doigts (dizaines, nombre de mains pleines) pour 
terminer par un geste démonstratif signifiant quelque chose comme 
“miam. miam !” 


Il faut dire qu'ils avaient la vue perçante en ce temps-là, mais tout de 
même, il y avait des limites, et lorsque la distance était trop importante, il 
fallait utiliser une autre méthode : les deux bras, par exemple. 


Mais si, avec les deux mains, on pouvait compter jusqu'à 10 (base 10), 
avec les deux bras, on ne peut compter que jusqu'à 2 (base 2). De plus, il ne 
faut pas oublier que le nombre correspondant à la base n'est jamais 
utilisé : 10 aurochs auraient été codés avec les mains : 


temps 1 : 0 doigt levé (unité) 
temps 2 : 1 doigt levé (dizaine) 
temps 3: miam... miam! 
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De même, 58 aurochs seront codés comme suit : 


temps 1 : 8 unités ---> 8 
temps 2 : 5 fois la base = 5 x 10 ---> 50 
temps 3: miam... miam ! 


Et s'il y en a 1 253: 


temps 1: 3 unités = 3 
temps 2 : 5 fois la base = 5*10 = 50 
temps 3 : 2 fois la base fois la base = 2*10*10 = 200 


temps 4: 1 fois... 1#10x10+x10 = 1 000 


temps 5: miam..miam ! 


1 253 
Avec les bras (base 2), 58 aurochs devront être codés : 
temps: 1 2.3 4 5 6 
C'est-à-dire : 
temps 1: 0 unité 0 
temps 2 : 1 fois la base = 1x2 2 
temps 3 : 0 fois la base fois la base=— 0+2x2 0 
temps 4: 1 fois …. — 1+2*2*2 8 
temps 5: 1 fois … = 1+2+2*2+2 16 
temps 6: 1 fois … = 1x2*x2x2*x2*x2 32 
temps 7 : miam... miam ! ES 


58 


L'avantage de la méthode était évident ; elle laissait à l’homme un bras 
libre, ce qui lui permettait d'en changer lorsqu'il y avait beaucoup 
d'aurochs, car dans ce cas-là, la “transmission” était longue et fasti- 
dieuse... 


Ainsi, comme vous le voyez, 58 en base 10 et 111010 en base 2 sont deux 
représentations d'un même nombre (il ÿy en a autant que de bases, c'est-à- 
dire un nombre infini). L'une est la représentation décimale, l’autre la 
représentation binaire. 


Comme le bras de l'homme de Cromagnon qui ne pouvait prendre que 
deux états (bras levé ou bras baissé), les informations traitées par 
l'ordinateur seront codées sur le même principe : 


— Etat 0 : pas de circulation de courant, pas de trou sur une carte où un 
ruban perforé, pas de magnétisation sur une cassette ou une disquette. 


— Etat 1: circulation d’un courant, trou dans une carte ou un ruban 
perforé, magnétisation sur un support magnétique. 
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Le nombre 58 pourra alors être représenté en binaire sur une carte 
perforée : 





La mémoire centrale est formée d'une mosaïque de cellules appelées 
bits, chacun d'eux pouvant prendre l’un des deux états 0 ou 1 (bascule). 


Habituellement, ces bits sont regroupés par huit pour former un octet, et 
la plupart des microprocesseurs utilisent l’adressage octet, ce qui signifie 
que l'on accède simultanément à 8 bits de la mémoire, en lecture ou en 
écriture. 


L'octet peut être représenté ainsi : 


LL _L_L 1-11" 
bit no: 7 6 5 43 2 1 0 


et le nombre 58 pourra être codé : 


AT ou AE ALT AT 


7 0 


avec le bit 0 représentant le poids faible du nombre, et le bit 7 représentant 
le poids fort, la notion de poids dépendant essentiellement de la valeur de 
la puissance 2 du rang occupé par chaque bit : 


bit O ---> 2° = 7 
bit 1 ---> 2! = 2 
bit 2---> 22 = 4 
bit 3 ---> 23 = 8 
bit 4 ---> 24 = 16 
bit 5 ---> 25 — 32 
bit 6 ---> 25 = 64 
bit 7 ---> 27 = 128 
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Plus le rang est élevé, plus le poids est lourd. Notre nombre 58, dans sa 
représentation binaire, a les bits 1, 3, 4 et 5 positionnés à 1. Il est donc facile 
de retrouver sa valeur décimale : 


bit 1 -—--> 2 
bit 3 ---> 8 
bit 4 ---> 16 
bit 5 ---> 32 


58 


A l'inverse, un nombre décimal devra être divisé par les puissances 
successives de 2 (la base) afin de trouver sa configuration binaire. 


Exemple : 133 = 27 + 2? + 2° = 128 +4 +1 
correspondant à : 


PA D ul 1 RE AL D D 


bits : 7 2 0 


Mais cette représentation est lourde et encombrante pour l'homme. Il a 
donc été décidé de couper l'octet en 2 quartets (4 bits) : 


L- AN EE Po L9 = te J 


et de faire correspondre à chaque quartet 16 symboles différents et 
uniques : 


0000 correspondra à 
0001 
0010 
0011 
0100 
0101 
0110 
0111 
1000 
1001 
1010 correspondra à : .....7? 


© © J O O1 B © NN = © 
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Les symboles numériques sont épuisés ? Qu'à cela ne tienne. Employons 
les alphabétiques : 


1010 correspondra à : A 
1011 B 
1100 C 
1101 D 
1110 E 
1111 F 


Voilà ! Toutes les combinaisons possibles du quartet ont été écrites, et il 
faut s'arrêter là. 


Par cette opération, nous venons, sans le savoir (Vraiment ?) de passer 
de la base 2 (binaire) à la base 16 (hexadécimale), avec l'avantage d'une 
légère contraction d'écriture (15 devient F). Tous ces systèmes de numéra- 
tion ne sont, rappelons-le, que différents modes de représentation des 
mêmes nombres. Le tout est de connaître la base utilisée. 


Un petit conseil: apprenez par cœur le tableau de correspondance 
binaire/hexadécimal. Allons... ce n'est pas si difficile | 


Le nombre 58 (base 10) pourra être représenté par 3A en base 16, ce qui 
est tout de même plus agréable que 00111010..., enfin, chacun ses goûts ! 


Bien entendu, au-delà d'un octet, le processus continue : 


8,1,9,0[%,4,0,0/0,1,0,0/6,0,0,1 


14 11 10 6 0 
correspondra à 4C41 en base 16 (ça, c'est facile), et à : 
24 + 211 4 210 + 26 + 1 en base 10, soit 19521. 


Mais 19521... c'est 76 fois 256 plus 65, 


et 76, c'est (4) fois 16 plus (3 , 


et 65, c'est (a) fois 16 plus (3 
1 _ 







Nous venons de repasser en base 16! Il est ensuite plus facile de 
basculer en base 2 si l’on connaît ses classiques : 


4 C 4 1 


À | À | 
0100 1100 0100 0001 
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Puisque nous en sommes au binaire, essayons d'’additionner deux 
nombres : 1 + 1 = 2.7? 
Non. En base 2, le 2 n'existe pas. Il faut donc ajouter une tranche 
supplémentaire au résultat (comme pour 5 + 5 en base 10): 


Essayons encore : 





Le microprocesseur ne procède pas différemment pour effectuer une 
addition. En hexadécimal, c'est un peu moins simple, sauf si l’on sait 
compter sur ses doigts. 





On compte comme en base 10, mais au-delà de 9, on continue par A. Il 
n'y a une retenue qu'au-delà de F. 


Un autre type de représentation est quelquefois utilisé en informatique : 
c'est la représentation BCD, qui signifie Décimal Codé Binaire (de l'anglais 
Binary Coded Decimal). 


On l'emploie en général dans des programmes exécutant des opérations 
directement en décimal, sans passer par le binaire. 


Les chiffres décimaux prennent les valeurs 0 à 9, on fait correspondre, à 
chaque chiffre du nombre, un quartet codé ainsi : 


0000 ---> 0 
0001 ---> 1 
0010 ---> 2 
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La codification est la même que pour l’hexadécimal, mais cette fois on 
s'arrête à 9. Ainsi, le nombre 1794 sera représenté : 


1 7 9 4 
w w 4 4 
0001 0111 1001 0100 


Pour terminer, nous allons dire un mot au sujet des opérateurs logiques. 


Il existe 4 fonctions logiques fréquemment utilisées sur les nombres 
binaires : le NON (NOT), le ET (AND), le OÙ (OR) et le OU EXCLUSIF (XOR). 


Le NON, nous l'avons déjà vu: c'est le complément à 1. Le ET (ou 
intersection logique) de deux nombres binaires s'effectue selon la règle 
suivante : 


0 et 0 ---> 0 
0 et 1 ---> 0 
1et 0 ---> 0 


Tet1---> 1 


appliquée à chaque couple de bits de deux nombres à intersecter. 


Exemple : 
10101101 
ET 01111011 
00101001 


Sous forme hexadécimale, nous écrirons que : AD AND 7B = 29. Quoi de 
plus simple ? 


Le bit résultant sera à 1 si le bit du premier nombre ET le bit du second 
nombre sont à 1. 


Le OÙ (ou réunion logique) obéit à la règle : 


0et0---> 0 

0 et 1 ---> 1 

1 et 0 ---> 1 

1et 1---> 1 

Exemple : 

10101101 
OU 11000101 

11101101 


que l'on peut aussi écrire : AD OR C5 = ED en hexadécimal. Le bit résultant 
sera à un si le bit du premier nombre OÙ le bit du second nombre est à 1. 
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Le OÙ exclusif (ou disjonction logique) obéit à la même règle que le 
précédent, sauf pour la dernière condition : 


0 et 0---> 0 
0 et 1 -—--> 1 
1et0---> 1 
1 et 1 ---> 0 


Pour que le bit résultant soit à 1, il faut donc que le bit du premier nombre 
OU le bit du second nombre soit à 1, mais pas les deux en même temps. 


Exemple : 
01011101 
OUEX 01101000 
00110101 
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Les adresses systèmes utiles 


Sont regroupés ci-dessous les appels de routines systèmes concernant la 
gestion des graphismes et des entrées utilisateur (clavier, joystick...). 
Toutes ne sont pas présentes, pour une raison d'encombrement et de 
simplification. || s'agit des routines principales. Elles sont mises en œuvre 
par un simple CALL à l'adresse indiquée, après avoir éventuellement 
rempli les registres nécessaires. L'ouvrage Clefs pour l’Amstrad de Daniel 
Martin (Éditions du P.S.I.) contient la liste complète des routines systèmes 
et leurs entrées et sorties. Le manuel Firmware d'Amsoft est également 
disponible, et fournit une explication plus détaillée des routines et du 
système, mais en anglais. 


[D +BB06 : attend un caractère au clavier ; 
SORTIE : le registre A contient le code ASCII du caractère 
tapé ; 


le flag Carry vaut 1; 
les flags sont modifiés. 


[0 +BB0O9 : regarde si caractère est disponible au clavier ; 
SORTIE : si Carry=1, A contient le code du caractère ; 
si Carrÿy=0, il n'y avait pas de caractère ; 
les flags sont modifiés. 
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O+BB18 


DO +BB1B 


O +BB1E 


D +BB24 


[O +BBCO 


CO +BBC3 


O +BBC6 


CO +BBDB 


O #BBDE 


: attend qu'une touche soit appuyée au clavier. 


SORTIE : Carry=1 
A contient le caractère associé à la touche ; 
flags modifiés. 


: regarde si une touche est appuyée ; 


SORTIE : si Carry=1, A contient le caractère associé ; 
si Carry=0, il n'y avait pas de touche ; 
flags modifiés. 


: teste si une touche donnée est appuyée ; 


ENTREE : numéro de la touche ; 

SORTIE : flag Z=0 si la touche était appuyée, 1 sinon; 
A et HL modifiés ; 
flags modifiés. 


: renvoie l'état du joystick. 


SORTIE : H et À = joystick 0 
L = joystick 1 
Les bits de l’octet état indiquent : 
b0O=1 si direction haut 
b1=1 si direction bas 
b2=1 si direction gauche 
b3=1 si direction droite 
b4=1 si bouton tir 2 
b5=1 si bouton tir 1 
Les flags sont modifiés. 


: MOVE se positionne sur un point graphique ; 


ENTREE : DE contient la coordonnée x sur 16 bits 
HL contient y; 
SORTIE : AF, BC, DE, HL modifiés (flags modifiés). 


: MOVER se déplace graphiquement ; 


ENTREE : DE contient le déplacement sur x en nombre de 
points ; 
HL contient le déplacement sur y; 

SORTIE : AF, BC, DE, HL modifiés (flags aussi). 


: renvoie le point de localisation actuel ; 


SORTIE : DE contient x; 
HL contient y; 
AF modifié (flags aussi). 


: efface la fenêtre graphique. 


SORTIE : AF,BC,DE,HL modifiés (et flags) ; 
le point actuel est placé sur l'origine (0,0). 


: sélectionne le stylo utilisé pour les tracés graphiques ; 


ENTREE : A contient le numéro de stylo ; 
SORTIE : AF et flags modifiés. 


CO +BBE1 


Ü +BBE4 


O +BBEA 


CO +BBED 


Ü+#BBFO 


D +BBF3 


CO +BBF6 


O +BBF9 


O #BCOE 


O +#BC11 


ANNEXE 2 | 257 


: renvoie le numéro du stylo graphique ; 


SORTIE : A contient le numéro ; 
flags modifiés. 


: sélectionne le numéro de stylo utilisé pour le fond gra- 


phique ; 
ENTREE : A contient le numéro de stylo ; 
SORTIE : A et flags modifiés. 


: PLOT colorie un point ; 


ENTREE : DE contient x; 
HL contient y; 
SORTIE : AF,BC,DE,HL et flags modifiés. 


: PLOTR colorie un point après déplacement ; 


ENTREE : DE contient déplacement sur x ; 
HL déplacement sur y ; 
SORTIE : AF,BC,DE,HL et flags modifiés. 


: TEST renvoie le numéro de stylo d'un point ; 


ENTREE : DE contient x; 
HL contient y ; 

SORTIE : A contient le numéro de stylo ; 
BC,DE,HL et flags modifiés. 


: TESTR renvoie stylo d’un point après déplacement ; 


ENTREE : DE déplacement sur x; 
HL déplacement sur y ; 
SORTIE : A contient numéro de stylo; 
BC,DE,HL et flags modifiés. 


: DRAW trace une ligne du point actuel à un point spécifié ; 


ENTREE : DE contient x du point visé ; 
HL contient y du point visé ; 
SORTIE : AF,BC,DE,HL et flags modifiés. 


: DRAWR déplacement et tracé jusqu'à un point ; 


ENTREE : DE déplacement sur x ; 
HL déplacement sur y ; 
SORTIE : AF,BC,DE,HL et flags modifiés. 


: MODE positionne l'écran dans un mode de résolution ; 


ENTREE : A contient le mode voulu (0,1 ou 2); 
SORTIE : AF,BC,DE,HL et flags perdus ; 
les couleurs associées aux stylos ne sont pas modifiées. 


: renvoie le mode actuel de résolution ; 


SORTIE : A contient numéro de mode; 
Carry=1 si mode=0, Carry=0 si mode 1 ou 2; 
Z=1 si mode=1, Z=0 si mode 0 ou 2; 
Flags modifiés. 
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CO +BC20 


CO +BC23 


O #BC26 
O +BC29 





O +#BC32 


O +BC38 


CO +BC5F 


D+BC62 


Ü #BC2C 


: calcule l'adresse écran placée à droite de l'actuelle, compte 


tenu des scrollings décalant l'adresse de début ; 
ENTREE : HL contient l'adresse écran originale ; 
SORTIE : HL recalculé ; 
AF est modifié. 


: idem BC20, mais décale vers la gauche. Mêmes entrée et 


sortie que BC20. 


: idem, mais calcule l'adresse de l'octet en dessous. 
: idem pour l'octet au-dessus. 


: modification des couleurs d’un stylo ; 


ENTREES : A contient le numéro de stylo ; 
B contient le numéro de la première couleur ; 
C contient le numéro de la seconde couleur ; 
SORTIES : les registres AF,BC,DE,HL sont modifiés. 


: modification des couleurs du bord de l'écran; 


ENTREES : comme BC32 sauf À, pas pris en compte ; 
SORTIE : idem BC32. 


: HORLIN ; trace une ligne horizontale ; les coordonnées 


sont celles de points physiques et non logiques ; le 
masque d'encre peut être obtenu par appel de INKCOD 
(#BC2C). 
ENTREES : A masque de l'encre ; 

BC abscisse droite du segment ; 

DE abscisse gauche du segment ; 

HL ordonnée du segment ; 
SORTIE : AF,BC,DE et HL sont modifiés. 


: VERLIN ; idem HORLIN, mais trace une ligne verticale ; 


ENTREE : À masque de l'encre ; 
BC ordonnée haute du segment ; 
DE abscisse du segment ; 
HL ordonnée basse du segment ; 
SORTIES : AF,BC,DE et HL modifiés. 


: INKCOD ; change un numéro de stylo en son masque ; 


ENTREE : À numéro de stylo ; 
SORTIE : À masque du stylo ; 
AF est modifié. 
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Couleurs et masques 


Chaque stylo peut être associé à une des 27 couleurs disponibles. Cette 
association est totalement indépendante du contenu de l'écran : celui-ci ne 
change pas, même si un stylo est modifié. Seul l'écran témoigne de la 
nouvelle couleur choisie, tous les points tracés avec ce stylo l'adoptant. Il 
suffit, après avoir réinitialisé l’Amstrad, d'effectuer une instruction 
“INK 0,0" pour le constater. Le fond de l'écran devient noir au lieu du bleu 
initial. C'est la seule modification réelle (le contenu de la mémoire écran ne 
change pas). 


En RAM-écran, les points sont associés à un numéro de stylo. Le chapitre 
1 explique comment les bits de chaque point sont entrelacés dans un octet, 
suivant le mode de résolution. 


Les entrelacements, d'apparence si compliquée, ne le sont pas tant que 
cela. En effet, si l’on isole chaque point d'un octet, on constate que la 
répartition des bits est la même ; seule la position dans l’octet varie. Ainsi, 
pour le mode 1, si le point considéré est tracé en stylo 3 (binaire 11), on 
obtient le contenu d'octet 00010001 si le point est celui placé à droite ; 
00100010, s’il est un peu plus à gauche, et ainsi de suite. Ces combinaisons 
élémentaires de bits, où un seul point est allumé, sont appelées des 
MASQUES. Ce nom leur vient de l'utilité qu’elles représentent. En effet, en 
prenant le contenu d'un octet “AND” avec ce masque, on récupère la 
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couleur du seul point correspondant. Supposons par exemple que nous 
devions connaître, en mode 1, quel est le stylo du point situé le plus à 
gauche. 


11010101 (contenu de l'écran, quelconque a priori) 
AND 10001000 (masque du point de gauche en mode 1) 


10000000 (masque associé au stylo 1 en mode 1) 


Cet exemple nous amène à dissocier deux types de masques. Les 
masques de points sont les masques cités ci-dessus : tous les bits du point 
sont positionnés à 1, les autres à zéro. Les masques de couleur répondent à 
la même logique : seuls les bits 1 du stylo sont positionnés à 1 dans le 
masque. 


Le tableau suivant résume, pour chaque mode, les masques de points et 
de stylos en binaire, en hexadécimal et en décimal. Ils sont donnés pour le 
point de droite uniquement. Pour chaque décalage à gauche du point 
voulu, il suffit de multiplier par deux la valeur donnée. Par exemple, le 
masque du point de droite en mode 2 est 1. Pour avoir celui du point de 
gauche (sept points plus loin), Il suffit de multiplier 7 fois par 2, ce qui 
donne 128. 


Il faut également noter que le stylo 0 se caractérise par un masque égal à 
zéro, quels que soient le mode et le point concernés. D'autre part, le 
masque de point est exactement le même que celui du dernier stylo 
disponible. 
















bin 01010101 | bin 00010001 | bin 00000001 
























hex 55 hex 11 hex 01 

dec 85 dec 17 dec 1 

bin 00000000 | bin 00000000 | bin 00000000 
(fond) hex 00 hex 00 hex 00 

dec 0 dec 0 dec 0 











bin 01000000 
hex 40 
dec 64 


bin 00010000 
hex 10 
dec 16 


bin 00000001 
hex 01 
dec 1 





















bin 00000100 
hex 04 
dec 4 


bin 01000100 
hex 44 
dec 68 


bin 00010000 
hex 10 
dec 16 























bin 00000001 
hex 01 
dec 1 


bin 00010001 
hex 11 
dec 17 
















ANNEXE 3 | 261 


bin 01010000 
hex 50 


dec 80 


bin 00010100 
hex 14 
dec 20 


bin 01010100 
hex 54 
dec 84 


bin 00000001 
hex 01 
dec 1 


bin 01000001 
hex 41 
dec 65 


bin 00000101 
hex 05 
dec 5 


bin 01000101 
hex 45 
dec 69 


bin 00010001 
hex 11 
dec 17 


bin 01010001 
hex 51 
dec 81 


bin 00010101 
hex 15 
dec 21 


bin 01010101 
hex 55 
dec 85 
























stylo 9 













































stylo 15 
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Carte mémoire Amstrad 


Les Amstrad, quel que soit leur modèle, utilisent tous la même carte 
mémoire (en tout cas en ce qui concerne les modèles 464, 664 et 6128). 
Leurs données système, blocs de vecteurs et autres limites de la mémoire 
utilisateur sont les mêmes. Cela signifie que la capacité mémoire des trois 
modèles est identique, que l'écran se trouve au même emplacement, etc. Il 
s'agit déjà d'une grande garantie de compatibilité. 


Il convient de noter que l'Amstrad possède une organisation en ROM 
supérieures qui peut également s'étendre à de la RAM (c'est ce qui a été fait 
sur le 6128). Ces ROM ou RAM parallèles sont des blocs de 16 Ko situés en 
#C000. || y a deux contraintes à respecter pour les utiliser : on ne peut 
accéder qu'à un seul bloc à la fois (quoi qu'il arrive, le Z-80 ne peut adresser 
que 64 Ko, pas un de plus, ni 16). Et surtout, les blocs de données ou de 
contrôle situés dans les 48 Ko restants ne doivent en aucun cas être écrasés 
si l'on veut gérer ces ROM/RAMI. 


Un bon exemple de ces contraintes : l'addition d'un lecteur de disquettes 
à un CPC 464 provoque une diminution de la RAM disponible. En effet, les 
routines de gestion du lecteur sont situées dans une ROM parallèle, et un 
bloc de données supplémentaires destiné à sa gestion vient prendre place 
dans la RAM utilisateur, réduisant celle-ci d'autant. Sur 664 et 6128, cette 
opération est effectuée d'office, le lecteur étant intégré, ainsi que sa ROM 
de contrôle. On peut de nouveau constater le phénomène sur 6128 en 
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mettant en place le programme “Bank Manager” livré sur la disquette 
système, programme dont le rôle est d'assurer la gestion des 64 Ko 
supplémentaires. Les routines se placent elles aussi en RAM, et la zone 
utilisateur diminue donc (les 64 Ko parallèles ne sont pas programmables 
tels quels, mais on peut les utiliser comme un “lecteur de disquettes” 
supplémentaire). 


L'Amstrad possède également une autre ROM parallèle, située de 40000 
à #2FFF. Cette ROM “basse” contient le système d'exploitation et ses 
routines, et possède un bloc de données en RAM. Ce bloc est de loin le plus 
important et ne doit en aucun cas être perdu, sauf si, évidemment, 
l'application envisagée fournit ses propres routines systèmes. 


Les extensions “RSX”" brièvement évoquées dans l'ouvrage prennent 
place en RAM, ou du moins leurs blocs de contrôle. 


CARTE DE LA MÉMOIRE VIVE 64 Ko 


$0000: vecteurs de contrôle du système (interruptions, connexions 
des ROM ou RAM parallèles, etc.). NE DOIT EN AUCUN CAS 
ÊTRE PERDU III 

$003F 

$0040: variables systèmes de l’interpréteur Basic. Peut être écrasé si 


le programme ne nécessite ni retour au Basic ni utilisation 
d'une quelconque des routines Basic (mathématiques, par 
exemple). 

$016F 


$0170: DEBUT DE LA RAM UTILISATEUR. Peuvent également être 
placées ici des variables de contrôle de ROM supérieures. 
L'adresse $0170 est alors repoussée par le programme 
d'initialisation de ces éventuelles ROM. 
Une application peut ainsi placer ces variables soit en début 
de zone libre, soit en fin, au choix. 

$A67B: FIN DE LA RAM UTILISATEUR sur un appareil avec lecteur de 
disquettes. La zone de cette adresse à $AB7F peut être utilisée 
sur un 464 sans lecteur. La connexion de ROM supplémen- 
taires ou d'extensions RSX diminue cette adresse en fonction 
de leurs besoins. 

$AB7F 


$AB80: zone de variables systèmes Basic. Peut être écrasé si le 
programme ne nécessite ni retour au Basic ni utilisation 
d'une de ses routines. 

$B100 
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$B101: 


$B8FF 
$B900 


$BAFF 


$BB00: 


$BDFF 


$BE00: 


SBFFF 


$C000: 


SFFFF 


zone de variables systèmes utilisées par le système d’exploi- 
tation. Peut être écrasé si le programme se passe de celui-ci. 


bloc de vecteurs systèmes. Permettent de sélectionner les 
ROM parallèles, la ROM basse, etc. ÉVITER D'Y TOUCHER. 


bloc des vecteurs. S'y trouvent tous les vecteurs des routines 
systèmes, mathématiques, etc. Ce bloc fournit ainsi un appel 
simple pout toute la gestion des ressources (graphismes, 
sons, interruptions.) et on évitera de le modifier. Chaque 
vecteur pointe sur une routine d’une ROM. Il est possible de 
modifier un vecteur afin qu'il pointe sur une autre routine. || 
n'est pas non plus interdit d'écraser purement et simplement 
ce bloc. Dans ce cas, le programme devra soit fournir ses 
propres routines systèmes (gestion des graphismes, du 
son...), soit appeler directement les routines voulues en ROM 
grâce au bloc $B900-$BAFF. 


zone réservée à la pile. 


RAM-Ecran. 384 octets de cette RAM ne sont pas visualisés et 
peuvent donc être récupérés si besoin est. Mais ils sont 
effacés au premier CLS et déplacés en cas de scrolling. 
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Carte mémoire des routines 


Les routines en assembleur du livre sont placées de façon à ne pas se 
chevaucher. Il est donc possible de les charger en mémoire simultanément. 
C'est de plus nécessaire pour certains programmes d'application. 


La totalité des routines est disponible sous forme de DATA Basic dans un 
programme, au moins une fois dans le livre. Une fois le programme en 
question exécuté, il est donc possible de sauvegarder la routine de la façon 
suivante : 


SAVE “nom de la routine”,b,adresse départ,adresse fin-adresse 
départ+1. 


Cette annexe résume donc les adresses de début et de fin de chaque 
routine du livre. 


LISTE DES PROGRAMMES DU LIVRE 


Chaque programme comporte une référence indiquant son type : 


— PROGn.m : il s'agit du programme Basic “m” du chapitre “n”. 
— PROGn.mAS : il s’agit du programme assembleur “m” du chapitre “n”. 
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—) Ù dd ed dd à dd Ùù à 
NNOOU RUN 


ui 
+ 


2.1as 


: accès direct à la mémoire écran; 

: calcul d'un octet de la mémoire écran ; 

: mouvement simulé par modification de couleurs ; 

: remplissage de l'écran en Basic par points ; 

: remplissage de l'écran en Basic par accès mémoire ; 
: remplissage en LM par points ; 

: routine du programme 1.6, 

: remplissage en LM par accès mémoire ; 

: routine du programme 1.7; 


: addition en LM interfacée avec le Basic ; 

: routine du programme 2.1 ; 

: addition en LM chronométrée ; 

: addition en Basic chronométrée ; 

: soustraction en LM interfacée avec le Basic ; 
: routine du programme 2.4 ; 


: tracé de cercles optimisé en Basic par points ; 
: tracé de cercles optimisé en LM par points ; 
: routine du programme 3.2; 

: tracé de cercles optimisé en LM par lignes ; 
: routine du programme 3.3; 

: tracé d'histogrammes en Basic ; 

: tracé d'histogrammes en LM; 

: routine du programme 3.5; 

: remplissage de zone quelconque en Basic ; 
: remplissage de zone quelconque en LM; 

: routine du programme 3.7; 


: création de l'image écran servant de décor aux routines ; 

: restitution simple d'un objet à l'écran; 

: Stockage simple d'une zone écran en mémoire ; 

: codage en mémoire d'un module (utilise 4.2as) par dessin ; 
: codage en mémoire d'un robot par POKE ; 

: codage en mémoire d'une bête par POKE ; 

: animation du module (utilise 4.1as) ; 

: animation du robot (utilise 4.1as) (modifications de 4.4); 

: animation de la bête (utilise 4.1as) (modifications de 4.4); 


: compactage d'un objet graphique ; 

: routine du programme 5.1 ; 

: restitution écran d'un objet compacté ; 
: routine du programme 5.2; 


: déplacement par joystick d'un objet ; 
: application du programme 6.1as ; 

: idem 6.2; 

: idem 6.2 ; 


: restitution d'un objet en mode XOR ; 
: idem 7.1; 
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7.1c : idem 7.1; 

7.1as : routine du programme 7.1 : 

7.2as : restitution d'un objet sur décor ; 

7.3 : application du programme 7.2as ; 

7.3b : idem 7.3; 

7.3c : idem 7,3; 

7.4 : restitution d'un objet sur décor et sous avant-plans : 

7.4b : idem 7.4; 

7.4c : idem 7.4; 

74as : routine du programme 7.4 ; 

8.1 : déplacement d'un objet par coordonnées et joystick ; 

8.1b : idem 8.1; 

8.1c : idem 8.1; 

8.1as : routine du programme 8.1 ; 

8.2as : détection de collision entre deux objets ; 

8.3 : déplacement complet ; 

8.3b : idem 8.3; 

8.3c : idem 8.3; 

8.3as : gestion des territoires interdits ; 

8.4 : déplacement automatique du module (décor, avant-plans, terri- 
: toires) ; 

8.4b : idem 8.4; 

8.4c : idem 8.4 ; 

8.4as routine du programme 8.4. 


EMPLACEMENT DES ROUTINES LM DU LIVRE 


Si l'on excepte les routines des premiers chapitres, tous les programmes 
assembleur du livre sont compatibles entre eux et peuvent être chargés 
ensemble en mémoire. Les adresses ci-dessous permettent, une fois un 
programme d'application exécuté, de sauver les routines dans un fichier 
binaire (grâce à l'instruction SAVE décrite plus haut). 


Quelques-uns des programmes d'application de ce livre (notamment 
dans les derniers chapitres) nécessitent le chargement de routines par le 
biais de fichiers binaires. Par exemple, l'instruction suivante : 


LOAD “prog4.1ob” 


suppose que vous avez préalablement sauvegardé le programme 4.1 sous 
ce nom et à partir des adresses de début et de fin indiquées ci-dessous en 
hexadécimal. 
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Les routines ainsi réutilisées dans des programmes sont signalées ci- 
dessous par une étoile. 


Routine Adresse Adresse 


numéro début fin 
1.6 $4000 $4033 
1.7 $4000 $400C 
2.1 $4000 $4017 
2.4 $4000 $4019 
3.2 $4000 $411D 
3.3 $4000 $4173 
3.5 $4200 $446B 
3.7 $5000 $5308 
4.1 (*) $4700 $471E 
4.2 (*) $4730 $4750 
5.1 $4500 $4599 
5.2 $4600 $4647 
6.1 (*) $4C00 $4c77 
7.1 $4800 $481F 
7.2 $4830 $4852 
7.4 (*) $4760 $47CA 
8.1 (*) $489C $492F 
8.2 (*) $4950 $498C 
8.3 (*) $49A0 $49C8 
8.4 $4A00 $4ACF 
VARIABLES GLOBALES 


Les routines des chapitres 4 à 8 utilisent une zone de variables commune. 
Ces variables sont résumées ci-dessous avec leur nom courant. Certaines 
possèdent deux noms, suivant la routine. Toutes les adresses ci-dessous 
signalées par “—" sont utilisées comme poids fort de la variable au- 
dessus, celle-ci étant alors au format 16 bits. 


Adresse Variable 
hexa. 

459A : BUFAC 
459B — 

459C : BUF / BUFFER 
459D — 

459E : LIGNE 
459F — 

45A0 : ECRAN 
45A1 — 

45A2 : COUNT 


45A3 : REPEAT 


: OCTREF 
: LECTUR 
: LAR 


: XO 
: YO 
: ECRANO 


: ECRAN2 


: BUFFER 


: DESSIN 


: JOYST 


ANNEXE 5 | 269 


Annexe 6 





Structure écran de l’Amstrad 


L'écran est composé de 200 lignes. Chaque ligne est codée avec 80 octets 
successifs, quel que soit le mode. L'adresse de départ de l'écran est $C000 
(sauf après un scrolling de texte, que nous supposons nul). Il s'y trouve le 
1: octet (gauche) de la première ligne (haut). Ensuite, les adresses des 
premiers octets de chaque ligne sont placés aux adresses indiquées ci- 
dessous, exprimées en hexadécimal. Les deux numéros placés à gauche 
des adresses permettent de trouver l'adresse d'une ligne, que le haut de 
l'écran soit noté 1 ou 200. 


Ligne _ adresse 
200 1 C000 
199 2 C800 
198 3 D000 
197 4 D800 
196 5 E000 
195 6 E800 
194 7 FO00 
193 8 F800 
192 9 CO50 
191 10 C850 
190 11 DO50 


189 12 D850 


188 
187 
186 
185 
184 
183 


182 
181 
180 


178 
177 
176 
175 
174 
173 
172 
171 
170 
169 


167 
166 
165 
164 
163 
162 
161 
160 
159 
158 


156 
155 
154 
153 


152 


150 
149 
148 
147 


145 
144 
143 
142 
141 


E050 
E850 


D9EO 
E1E0 
E9EO 
F1E0 
F9EO 
C230 
CA30 
D230 
DA30 
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140 
139 
138 
137 
136 
135 
134 
133 
132 
131 
130 
129 
128 
127 
126 
125 
124 
123 
122 
121 
120 
119 
118 
117 
116 
115 
114 
113 
112 
111 
110 
109 
108 
107 


109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 


124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 


139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
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- N GO PB 01 O “J © © 


158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
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Le jeu d'instruction du Z-80 


Pour la petite histoire, voici comment cette liste a été créée. 


a. Un programme BASIC, partant de la racine de chaque mnémonique, va 
produire la famille correspondante. 

Exemple : LD <SR>,<SR> 

(SR représente les simples registres), va créer tous les codes : LD A,A, LD 

A,B … LD L,L. 


Le fichier ainsi constitué est placé sur disque. 
b. Tri du fichier par ordre croissant. 
. Numérotation des instructions (programme BASIC). 
. Assemblage du fichier pour générer le code machine (listing sur fichier 
disque). 
e. Suppressions des numéros de lignes (devenus inutiles) par programme 
BASIC. 
f. Altération du code machine (dd, nn, etc.) par un logiciel de traitement de 
texte. 
g. Disposition du texte en deux colonnes de 60 lignes par page (pro- 
gramme BASIC). 
h. Édition de la liste (voir ci-après). 


e. © 
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Les symboles employés ont la signification suivante : 


dd 

N 

nn 
ADR 
aaaa 


DEPL 
NN 
nnnn 


0000 
0001 
000% 
0007 
0008 
0009 
0004 
000B 
000€ 
000D 
OO0E 
0010 
0012 
0014 
0016 
0018 
0019 
001€ 
001F 
0020 
0021 
0022 
0023 
002% 
0025 
0026 
0028 
0029 
0024 
002B 
D02C 
D0?E 
0030 
00327 
0034 
0036 
0038 
0034 
D03C 
003D 
0040 
0043 


: valeur de déplacement signée sur 8 bits, 

: valeur de 8 bits de l’opérande, 

: valeur de 8 bits dans le code machine, 

: label d'adresse en opérande, 

: valeur d'adresse sur 16 bits dans le code machine (poids faibles + 
poids forts), 

: déplacement dans l'opérande des instructions en mode relatif, 

: valeur de 16 bits ou adresse dans l'opérande, 

: valeur de 16 bits dans le code machine (poids faibles + poids 
forts). 


8E ADC A>(HL) * 0066 DDCBddéE BIT 1r(IX+dd) 
DD8Edd ADC A(IX+dd) *# OD6À FDCBdd#E BIT 1r(I1Y+dd) 
FD8Edd ADC A(IY+dd) * OO6E CB4F BIT 14 

8F ADC AA * 0070 CB&48 BIT 12B 

88 ADC AE * 0072 CB49 BIT 1C 

89 ADC AC * 0074 CH4A BIT 17D 

8A ADC AD #* 0076 CR4B BIT 15E 

8B ADC A?E * 0078 CR4C BIT 1H 

8c ADC A’H *  007A CB4D BIT 12L 

8D ADC AL #*  007C CB56 BIT 27(HL) 
CEnn ADC A?N * :OO07E DDCEBdd5é BIT 2:(I1X+dd) 
ED4A ADC HLBC * 0082 FDCBdd56 BIT 2:(1Y+dd) 
EDSA ADC HL’DE * 0086 CR57 BIT 24A 

ED6A ADC HL?HL * 0088 CR50 BIT 2H 

ED7A ADC HLSP *  O08A CR51 BIT 2€ 

86 ADD Az(HL) *  O08C CB52 BIT 22D 
DD8ë6dd ADD A:(IX+dd) * OD8E CBR53 BIT 2?E 
FD86dd ADD A(1Y+dd) * 0090 CR54 BIT 27H 

87 ADD AA * 0092 CR55 BIT 2? 

80 ADD AE * 0094 CHRSE BIT 37(HL) 

81 ADD A:C * 0096 DDCBddSE BIT 3:(IX+dd) 
82 ADD AD *  O009A FDCRddSE BIT 32(I1Y+dd) 
83 ADD À?E *  009E CB5F BIT 34 

84 ADD A’H *  DOAO CE58 BIT 3B 

85 ADD AL * ODA? CE59 BIT 3€ 

Cénn ADD A?N *  O0A4 CRSA BIT 37D 

09 ADD HL:BC *  O0A6 CESE BIT 3?E 

19 ADD HL:DE *  OODAS CESC BIT 37H 

29 ADD HL?HL #  ODAA CR5D BIT 3?L 

39 ADD HL:5SP #  DOAC CB66 BIT #4>(HL) 
DDO9 ADD IX7HC #  OOAE DDCBddéé BIT #»(IX+dd) 
DD19 ADD IX?DE *  O0B? FDCEddéé BIT #4(1Y+dd) 
DD29 ADD IX:1X *  O0B6 CB67 BIT #A 

DD39 ADD IX25P *  DOB8 CB60 BIT #4B 

FDO9 ADD IY?BC *  OOBA CHé6i BIT #0 

FD19 ADD IY?DE *  OOKC CB62 BIT #4D 

FD29 ADD IYIY *  OOBE CR63 BIT #?E 

FD39 ADD IYSP *  O00C0 CH6#4 BIT &?H 

A6 AND (HL) #*  O0C2 CH65 BIT #47l 
DDA6dd AND (IX+dd) *  00C4 CB6E BIT S7(HL) 
FDAëdd AND (IY+dd) * O00C6 DDCBddéE BIT Sr(I1X+dd) 
A7 AND A *  OOCA FDCRddéE BIT S(IY+dd) 
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0044 AD AND FE *  OOCE CB6F BIT 54 
0045 A AND C *  D0D0 CB68 BIT 57B 
0046 A? AND D *  OOD? CB69 BIT 5€ 
0047 43 AND E *  00D4 CH6A BIT 5D 
0048 A4 AND H *  O0D6 CB6H BIT 3?E 
0049 AS AND L *  O0D8 CHR6C BIT 5H 
0044 Ebnn AND N *  OODA CB6D BIT 5?L 
004C CB4£46 BIT O>(HL) *  DOODC CE76 BIT b»(HL) 
O04E DDCBddé& BIT O(IX+dd) * OODE DDCkdd/76 HIT 6»(IX+dd) 
0052 FDCBddéé BIT O(1Y+dd) * OOE? FDCEdd76 BIT 6r(I1Y+dd) 
0056 CH47 BIT OA * OOE6 CB77 BIT 64 
0058 CEH40 BIT O?E *  DOOE8 CB70 BIT 6H 
O0SA CH4i BIT OC *  OOEA CB71 BIT 6€ 
005C CH42 BIT OD *  OOEC CR7? BIT 6?D 
OOSE CBR43 BIT O?E #  OOFE CB73 BIT 6’E 
0060 CB##4 BIT OH *  O0FO CB74 BIT 6H 
0062 CB45 BIT OL *  O0F2 CR75 BIT 6?l 
0064 CBR&E BIT 17(HL) *  00F4 CB7E HIT 7r(HL) 
00Fé6 DDCEdd/7E BIT 7:(1X+dd) * 0163 D9 EXX 

O0FA FDCBdd7E BIT 7r(I1Y+dd) * D164 76 HALT 

OOFE CH7F BIT 7?7AÀ * D165 ED46 IM O 

0100 CB78 BIT 7,B * 0167 ED56 IM 

0102 CB79 BIT 7:C + 0169 EDSE IM 2 

0104 CB7A BIT 7:D + O016B ED78 IN Az:(€) 
0106 CB7E BIT 7?E *+ 016D DEnn IN Az(N) 
0108 CB7C BIT 77H * O016F ED40 IN H(0C) 
O1D0À CB7D BIT 72L + 0171 ED48 IN C?(C) 
010C DCaaaa CALL CADR * 0173 EDS0O IN D(C) 
010F FCaaaa CALL MzADR #* 0175 EDS58 IN E(C) 
0112 Déaaaa CALL NC?ADR + D177 ED60 IN Hz(C) 
0115 CDaaaa CALL ADR * 0179 ED68 IN Lr(0c) 
0118 C4aaaa CALL NZ:ADR * 017B 34 INC (HL) 
011E Féaaaa CALE P:ADR # 017C DD34dd INC (IX+dd) 
O11E ECaaaa CALL PE7ADR *  017F FD34dd INC (IY+dd) 
0121 E4aaaa CALL POzADR # 0182 30 INC A 

0124 CCaaaa CALL ZADR #* 0183 04 INC B 

0127 3F CCF * 0184 03 INC BC 
0128 BE CP (CHL) #* 0185 OC INC C 

0129 DDBEdd CP (IX+dd) * 0186 14 INC D 

012C FDBEdd CP (IY+dd) * 0187 13 INC DE 
012F BF CP À + 0188 1C INC E 

0130 B& CP E + 0189 24 INC H 

0131 B9 CP C * O18A 23 INC HL 
0132 BA CP D * O018B DD23 INC IX 
0133 BB CPE *  D018D FD23 INC IY 
0134 BC CP H #  D18F 2C INC L 

0135 BD CPL * D190 33 INC SP 
0136 FEnn CP N #+ 0191 EDAA IND 

0138 EDA9 CPD * 0193 EDBA INDR 

013A EDR9 CPDR * 0195 EDA? INI 

013C EDAÏ CPI * 0197 EDB2 INIR 

D13E EDB1 CPIR # 0199 E9 JP (HL) 
0140 2F CPL #* 019A DDE9 JP (IX) 
0141 27 DAA #*  D19C FDE9 JP (IY) 
0142 35 DEC (HL) *  019E DAaaaa JP CADR 
D143 DD35dd DEC (IX+dd) # O1A1 FAaaaa JP M2ADR 
0146 FD3S5dd DEC (IY+dd) #* O144 D2aaaa JP NCzADR 
0149 3D DEC À + O1A7 C3aaaa JP ADR 
0144 05 DEC HE + DO1AA C2a3aa JP NZ?ADR 
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014B 
0140 
014D 
D14E 
014F 
0150 
0151 
0152 
0154 
0156 
0157 
0158 
0159 
015B 
015C 
015D 
015F 
D161 
0162 
D1CE 
01D1 
D1D4 
01D7 
O1DA 
01DD 
01E0 
01E3 
O1E7 
O1EA 
O1ED 
01F0 
01F3 
01F6 
01F9 
O1FC 
0200 
0203 
0207 
020B 
020E 
0212 
0216 
O21À 
021B 
021C 
021D 
0220 
0223 
0226 
0227 
0228 
0229 
022A 
022B 
D22C 
D22E 
D22F 
0231 
0233 


OR 

OD 

15 

1B 

1D 

25 

2B 

DD? 
FD2k 

2D 

JE 

F3 

10dd 

FE 
E3 

DDE3 
FDE3 

08 

ER 
DD77dd 
DD70dd 
DD71dd 
DD72dd 
DD/73dd 
DD74dd 
DD/75dd 
DD36ddnn 
FD/7/7dd 
FD70dd 
FD/71idd 
FD72dd 
FD73dd 
FD/74dd 
FD75dd 
FD36ddnn 
32nnnn 
ED43nnnn 
ED53nnnn 
22nnnn 
DD?2?2nnnn 
FD22nnnn 
ED73nnnn 
DA 

14 

7E 
DD7Edd 
FD7Edd 
SAnnnn 
7F 

78 

79 

7A 

7B 

7C 

ED57 

7D 

3Enn 
EDS5F 

kb 


DEC BC 

DEC C 

DEC D 

DEC DE 

DEC E 

DEC H 

DEC HL 

DEC IX 

DEC IY 

DEC L 

DEC SP 

D1 

DJNZ DEPL 
EI 

EX (SP)2HL 
EX (SP):1X 
EX (SP)21Y 
EX AF:AF° 

EX DE’HL 


LD (IX+dd)?A 
LD (IX+dd)7k 
LD (IX+dd)C 
LD (IX+dd):D 
LD (IX+dd)?E 
LD (IX+dd)H 
LD (IX+dd)2L 
LD (IX+dd)7N 
LD (IY+dd)7A 
LD (I1Y+dd)H 
LD (IY+dd)?c 
LD (1Y+dd)2D 
LD (IY+dd)?E 
LD (IY+dd)H 
LD (IY+dd)?L 
LD (IY+dd)2N 


LD (NN)’A 
LD (NN)BC 
LD (NN)2DE 
LD (NN)7HL 
LD (NN)7IX 
LD (NN)71Y 
LD (NN):SP 
LD A:(BC) 
LD A?(DE) 
LD Ar(HL) 


LD A:(IX+dd) 
LD A:(IY+dd) 


LD A7(NN) 
LD AA 
LD AB 
LD AC 
LD AD 
LD A?E 
LD A’H 
LD AI 
LD A? 
LD A?N 
LD A7R 
LD Br(HL) 


KOKOKOK OKON OKON OK OO OO KO OK MK He KO OK OO OKON OK KO OK GK KO % 


01AD 
01B0 
01B3 
01B6 
D1R9 
O1BE 
01BD 
01BF 
D1C1 
01C3 
D1C4 
01C5 
01Cé 
D1C7 
D1Cc8 
01C9 
O1CA 
O1CE 
D1CC 
0256 
0257 
0258 
025A 
025B 
025E 
0261 
0262 
0263 
0264 
0285 


0266 


0267 
0268 
D26A 
026E 
0271 
0272 
0275 
0278 
0279 
027A 
027E 
0270 
027D 
027E 
027F 
0281 
0282 
0285 
0288 
0289 
0284 
028B 
028C 
028D 
028E 
028F 
0291 
0294 


F2aaaa 
EAaa3a 
E2aaaa 
CAa3a3 
38dd 
18dd 
30dd 
20dd 
28dd 
02 

12 

77 

70 

71 

72 

73 

74 

75 
Jénn 
4C 

4D 
OEnn 
96 
DD56dd 
FD5édd 
97 

50 

Ji 

52 

993 

J4 

95 
1énn 
ED5Bnnnn 
1innnn 
JE 
DD5Edd 
FDSEdd 
9F 

98 

59 

JA 

JE 

S14 

5D 
1Enn 
6b 
DDéé6dd 
FDéédd 
67 

60 

bi 

62 

63 

64 

85 
26nn 
2Annnn 
24nnnn 


JP 
JP 
JP 
JP 
JR 
JR 
JR 
JR 
JR 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 


LD 
LD 


P ADR 
PE > ADR 
PO>ADR 

Z ADR 
C?DEPL 
DEPL 
NC?DEPL 
NZ?DEPL 
Z2DEPL 
(BC)rA 
(DE)?A 
(HL) A 
CHL)2E 
(HL)?C 
(HL)?D 
(HL)?E 
(HL)H 
CHL)?L 
CHL):N 
CH 

C?rL 

CN 
D?(HL) 
D(IX+dd) 
D(IY+dd) 
D’A 

DB. 

DC 

D?D 

D?E 

DH 

D? 

D?N 

DE > (NN) 
DE ?NN 

E 7 (HL) 
E2(IX+dd) 
Er(1Y+dd) 
E’A 

EE 

EC 

ED 

E?E 

EH 

E?l 

EN 

Hz (HL) 
H:2(1X+dd) 
Hr(1Y+dd) 
HA 

HE 

H?C 

HD 

H?E 

H?2H 

H?l 

H?N 

HL > (NN) 
HL > NN 


0234 
0237 
0234 
023H 
023C 
023D 
023E 
023F 
0240 
0241 
0243 
0247 
024A 
024R 
024E 
0251 
0252 
0253 
0254 
0255 
02C2 
D2C4 
02C7 
02C9 
02CB 
02CD 
O2CF 
02D1 
02pD2? 
02D3 
02D6 
02D9 
D2DA 
02DB 
02DC 
02DD 
02DE 
O02DF 
02E0 
02E2 
02E4 
02E6 
02E8 
O2EA 
O2EC 
O2EE 
02F0 
02F2 
D2F 4 
02F6 
02F8 
02FA 
O2FB 
02FC 
02FD 
O2FE 
0300 
0302 
0303 


DD46dd 
FDéébdd 
47 

40 

41 

42 

43 

CTA 

45 
Dénn 
EDéBnnnn 
Oinnnn 
4E 
DD4Edd 
FD4Edd 
&F 

48 

49 

4A 

&4E 
FDF9 
3ginnnn 
EDAB 
EDB8 
EDAO 
EDBO 
ED44 
00 

Bé 
DDBé6dd 
FDBédd 
B7 

BO 

Bi 

B2 

B3 

B4 

B5 
Fénn 
EDEB 
EDB3 
ED79 
ED41 
ED49 
ED51 
ED59 
EDé61 
ED69 
D3änn 
EDAB 
EDA3 
Fi 

ci 

Di 

Ei 
DDE 1 
FDE1 
F5 

C5 


LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LDD 
LDD 
LDI 
LDI 
NEG 
NOP 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OR 
OTD 
OTI 
OUT 
OUT 
OUT 
OUT 
OUT 
OUT 
OUT 
OUT 
OUT 
OUT 
POP 
POP 
POP 
POP 
POP 
POP 
PUS 
PUS 


E»(IX+dd) 
Br(IY+dd) 
BEA 

BB 

BC 

BD 

BE 

EH 

B?L 

B2N 
BCz(NN) 
BC:NN 
Cr(HL) 
C(I1X+dd) 
Cr(I1Y+dd) 
CA 

CB 

CIC 

CD 

C?E 

SP?71Y 
SP 2 NN 


R 
R 
(HL) 


(IX+dd) 
(I1Y+dd) 


TIM OomD 


R 

R 
(C)rA 
(C)?2E 
(C)2C 
(C)2D 
(C)?E 
(C)’H 
(C)?rL 
(N)’A 

D 

I 
AF 
EC 
DE 
HL 
IX 
IY 

H AF 

H BC 


KHXHHOK OKON OK OKON OK OKON OKON OKON OKON KO OK OK OK OK OK OK OK OÙ Où % % * 


0297 
0299 
029D 
O2aA1 
O2A5 
0249 
024A 
OZ2AD 
02F0 
02B1 
02B2 
02B3 
02B4 
02B5 
02B6 
02B7 
02B9 
02BE 
02BF 
D2C0 
0334 
03368 
0338 
0334 
033C 
0340 
0344 
0346 
0348 
0344 
0340 
034E 
0350 
0352 
0354 
0358 
035C 
035E 
0360 
0362? 
0364 
0366 
0368 
036A 
036C 
0370 
0374 
0376 
0378 
037A 
037C 
037E 
0380 
0382 
0384 
0388 
038C 
038E 
0390 


ED47 
DD?2Annnn 
DD?21nnnn 
FD2Annnn 
FD?21nnnn 
&E 
DD6Edd 
FD6Edd 
6F 

68 

69 

6A 

&E 

&6C 

6D 

2Enn 
ED4F 
ED/7Ennnn 
F9 

DDF9 
CB8B 
CB8C 
CB8D 
CBR96 
DDCBdd98 
FDCBdd9é 
CEB97 
CB90 
CB91 
CB92 
CB93 
CB94 
CB95 
CB9E 
DDCBdd9E 
FDCBdd9E 
CB9F 
CB98 
CR99 
CR9A 
CB9B 
CR9C 
CH9D 
CBA6 
DDCBddA& 
FDCEddAb 
CBA7 
CBAD 
CBAïi 
CBA2 
CEA3Z 
CBA#4 
CBAS 
CBAE 
DDCEddAE 
FDCBddAE 
CBAF 
CBAS 
CBA9 
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LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 


1’A 

IX (NN) 
IX7NN 

IY7 (NN) 
IY2NN 

Lr(HL) 

L:(1X+dd) 

Lr(IY+dd) 

LA 

LE 

LC 

LD 

LE 

LH 

L?l 

LrN 

R?A 

SP 7 (NN) 

SP >HL 

SP:1X 

17E 

1H 

42 

2: (HL) 
2r(IX+dd) 
Zr(1Y+dd) 
274 
2?E 
27C. 
21D 
27E 
21H 
2rL 

3? (HL) 
J3r(IX+dd} 
3r(1Y+dd) 
JrA 
3?B 
37€ 
3:D 
37E 
3H 
3?L 

kr (HL) 
4» (IX+dd) 
k1(1Y+dd)} 
4 
42E 
k3C 
431D 
43E 
4H 
koL 
J?(HL) 
9o7(IX+dd) 
gr2(1Y+dd) 
J7A 
97E 
JC 
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0304 
0305 
D306 
0308 
030À 
030€ 
0310 
0314 
0316 
0318 
0314 
0310 
031E 
0320 
0322 
0324 
0328 
032€ 
032E 
0330 
0332 
03C4 
03C6 
03C8 
03CA 
03CB 
03CC 
03CD 
O3CE 
03CF 
03D0 
03D1 
03D2 
03D3 
03D5 
03D7 
03D9 
03DD 
O3E 1 
03E3 
03E5 
03E7 
03E9 
O3EB 
03ED 
O3EF 
D3F0 
D3F2 
03F6 
03FA 
D3FC 
O3FE 
0400 
0402 
0404 
0406 
0408 
0409 
040B 


DS 

ES 

DDES 
FDES 
CB86 
DDCBdd8& 
FDCBdd8& 
CB87 
CB80 
CcB8i 
CB82 
CB83 
CBB8#4 
CB85 
CB8E 
DDCRddS8E 
FDCBdd8E 
CREF 
CB88 
CcB89 
CB8A 
CBBR 
CBBC 
CBBD 

c9 

D8 

F8 

DO 

co 

FO 

E8 

ED 

C8 

ED4D 
ED45 
CB16 
DDCBdd16 
FDCBdd16 
CB17 
CB10 
cBii 
CB12 
CB13 
CB14 
CEB15 

17 

CBO6 
DDCEBdd06 
FDCBddO6 
CB0O7 
CB0O0 
CEO1 
CEBO2 
CHO3 
CRO4 
CBOS 

07 

ED6F 
CB1E 


PUSH 
PUSH 
PUSH 
PUSH 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RET 
RETI 
RETN 
RL ( 
RL ( 
RL ( 
RL 
RL 
RL 
RL 
RL 
RL 
RL 
RLA 
RLC 
RLC 
RLC 
RLC 
RLC 
RLC 
RLC 
RLC 
RLC 
RLC 
RLCA 
RLD 
RR ( 


TIMCGOmD 


DE 
HL 
IX 
IY 
0 (HL) 
0O(IX+dd) 
D(I1Y+dd) 
0’A 
0?B 
OC 
DD 
0?E 
0H 
O?L 
17 (HL) 
1r(1X+dd) 
1:(1Y+dd) 
1,4 
12B 
147C 
17D 
77E 
77H 
71l 


c 
M 
NC 
NZ 
P 
PE 
PO 
z 


HL) 
IX+dd) 
I1Y+dd) 


(HL) 
(CIX+dd) 
(IY+dd) 


rTIMSOmD 


HL ) 


AMSTRAD 


kXKHXXXX EX XX XX OK KO KO KO OK OK OK OK OK NOK OK OK OK OK OK OKON KO OO OO ON OK OK KO KO OK OKON OK OK KO NOK XX % 


0392 
0394 
0396 
0398 
0394 
0390 
03A0 
0344 
0346 
03A8 
03AA 
03AC 
O3AE 
0380 
03B2 
03B4 
03B8 
03BC 
03BE 
03C0 
03C2 
043F 
0440 
0441 
0442 
0443 
0444 
0445 
0446 
0447 
0448 
044E 
044E 
044F 
0450 
0451 
0452 
0453 
0454 
0455 
0457 
0459 
045B 
045D 
045F 
0460 
0462 
0466 
0464 
046€ 
046E 
0470 
0472 
0474 
0476 
0478 
047A 
047E 
0482 


CHAA 
CBAB 
CBAC 
CBAD 
CBB6 
DDCBddBé 
FDCEddERé 
CBE7 
CBBO 
CBB1 
CBB2 
CBB3 
CBB#4 
CBB5 
CBBE 
DDCBddBE 
FDCBddRE 
CBBF 
CcBB& 
CBB9 
CEBBA 

C7 

CF 

D7 

DF 

E7 

EF 

F7 

FF 

9E 
DD9Edd 
FD9Edd 
9F 

98 

99 

94 

9B 

9c 

9D 

DEnn 
ED42 
ED52 
ED62 
ED72 

37 

CBC& 
DDCEddCé 
FDCBddCé 
CBC7 
CBCO 
CBC1 
CBC2 
CBC3 
CBC#4 
CBCS 
CBCE 
DDCEddCE 
FDCBddCE 
CBCF 


RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RES 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
SBC 
SBC 
SBC 
SBC 
SBRC 
SBC 
SBC 
SBC 
SBC 
SBC 
SBC 
SBC 
5BC 
SRC 
SBC 
SCF 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 


9D 

JE 

97H 

9?L 
6r(HL) 
br(IX+dd) 
br(IY+dd) 
brA 

62E 

brC 

brD 

6?E 

6H 

brl 

73 (HL) 
7r(IX+dd) 
7r(1Y+dd) 
72A 

7:B 

72€ 

71D 

00 

08 

10H 

18H 

20H 

28H 

3H 

38H 

A» (HL) 
Ar(IX+dd) 
A2(IY+dd) 
A7A 

A’E 

A:C 

AD 

A?E 

A?7H 

A?L 

AN 

HL BC 

HL DE 
HL2HL 

HL SP 


07 (HL) 
0:(1X+dd) 
O(1Y+dd) 
0’A 

0E 

DC 

0D 

0’?E 

0H 

O?L 

17 (HL) 
1r(IX+dd) 
1r(I1Y+dd) 
174 


040D 
0411 
0415 
0417 
0419 
041E 
D41D 
041F 
0421 
0423 
0424 
0426 
0424 
042E 
0430 
0432 
0434 
0436 
0438 
0434 
043C 
043D 
04B8 
D4BA 
04RC 
O4BE 
04C0 
D4C2 
04C&6 
D4CA 
04CC 
04CE 
04D0 
04D2 
D4D4 
04D6 
04D8 
04DA 
04DE 
D4E 2 
04E#4 
04E6 
D4E8 
04EA 
O4EC 
O4EE 
04F0 
04F2 
04F6 
D4FA 
O4FC 
O4FE 
0500 
0502 
0504 
0506 
0508 
D050A 
050E 


DDCBddiE 
FDCBddiE 
CB1F 
CH18 
CB19 
CB1A 
CHIB 
CHIC 
CH1D 

1F 

CROE 
DDCBddDE 
FDCBddODE 
CEOF 
CEO8 
CEO9 
CBDA 
CEDR 
CROC 
CBOD 

0F 

ED67 
CBDA 
CBDB 
CEBDC 
CBDD 
CBE6 
DDCBddE6 
FDCBddE6 
CBE7 
CBEO 
CRE 1 
CBE2 
CBE3 
CBE#4 
CBES 
CBEE 
DDCRddEE 
FDCBddEE 
CBEF 
CRE8 
CBE9 
CREA 
CBEB 
CBEC 
CHED 
CBF6 
DDCBddF & 
FDCBddF 6 
CBF7 
CEFO 
CBF1 
CBF2 
CBF3 
CEF #4 
CBFS 
CBFE 
DDCBddFE 
FDCBddFE 


RR ({ 
RR ( 
RR 
RR 
RR 
RR 
RR 
RR 
RR 
RRA 
RRC 
RRC 
RRC 
RRC 
RRC 
RRC 
RRC 
RRC 
RRC 
RRC 
RRCA 
RRD 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 


rTIMCSGOomrD 


IX+dd) 
IY+dd) 


(HL) 
(IX+dd) 
(IY+dd) 


rFIMGOomD 


3rD 

3?7E 

37H 

3rL 

3 (HL) 
kr(I1X+dd) 
k:(I1Y+dd) 
krA 

42B 

krC 

42D 

42E 

42H 

&rl 

97 (HL) 
gr(1X+dd) 
S2(1Y+dd) 
57A 

57B 

97€ 

97D 

9?E 

97H 

9?7L 
br(HL) 
6:(IX+dd) 
br(1Y+dd) 
brA 

b:B 

brC 

b:D 

61E 

b7H 

6?L 

73 (HL) 
7r{I1X+dd) 
7r1(1Y+dd) 


XEXXXXEXRXÉXEX EEK KE X EE OKON OK OX OKON OKON OK OKON OK OKON OKON OK OKON ON OK OK OK OK XX OX KO KO OK OK OK ON OX XX À 


0484 
0486 
0488 
D48A 
0480 
048E 
0490 
0492 
0496 
0494 
0490 
049E 
04A0 
D4A7 
04A4 
046 
D4A8 
D4AA 
D4AE 
04B2 
04B4 
04B6 
052C 
052E 
0530 
0532 
0534 
0536 
0538 
053A 
053E 
0542 
0544 
0546 
0548 
0544 
0540 
054€ 
0550 
0552 
0556 
0554 
055C 
055€ 
0560 
0562 
0564 
0566 
0568 
0569 
056C 
056F 
0570 
0571 
0572 
0573 
0574 
0575 
0576 


CcBC& 
CEC9 
CBCA 
CBCE 
CBCC 
CBCD 
CBD6 
DDCEddDÉ 
FDCBddDé 
CED7 
CEDO 
CBD1 
CBD? 
CBD3 
CED4 
CBDS5 
CBDE 
DDCEddDE 
FDCBddDE 
CBDF 
CBD& 
CBD9 
CB20 
CB21 
CB22 
CB23 
CE24 
CB25 
CB2E 
DDCBdd?2E 
FDCBdd?2E 
CB2F 
CcB28 
CB29 
CB2A 
CB2B 
CB2C 
CB2D 
CB3E 
DDCBdd3E 
FDCBdd3E 
CB3F 
CB38 
CB39 
CB3A 
CB3B 
CB3C 
CB3D 

96 
DD96dd 
FD96dd 
97 

90 

91 

92 

93 

94 

95 

Dénn 
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SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SET 
SLA 
SLA 
SLA 
SLA 
SLA 
SLA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRA 
SRL 
SRL 
SRL 
SRL 
SRL 
SRL 
SRL 
SRL 
SRL 
SRL 
SUB 
SUB 
SUB 
SUB 
SUB 
SUB 
SUB 
SUB 
SUB 
SUB 
SUB 


12H 

17C 

17D 

17E 

17H 

1421 

23 (HL) 
2r(IX+dd) 
2r(1Y+dd) 
274 

21H 

21€ 

27rD 

2?E 

21H 

2?rL 
37(HL) 
3r(1X+dd) 
3r(1Y+dd) 
3rA 

3? 

3?C 


TIM Oo tm 


CHL) 
(IX+dd) 
(IY+dd) 


rTIMOSOomD 


(HL) 
(IX+dd) 
(IY+dd) 


HL ) 
IX+dd) 
1Y+dd) 


ZrTIMSOmMD---rTIMmSOmD 
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0512 
0514 
0516 
0518 
D51A 
051€ 
OS1E 
0520 


0522 


0526 
0524 


CBFF 
CBF8 
CBF9 
CBFA 
CBFH 
CBFC 
CEFD 
CB26 
DDCBdd26 
FDCBdd26 
CB27 


SET 
SET 
SET 
SET 
SET 
SET 
SET 
SLA 
SLA 
SLA 
SLA 


718 
71 
72€ 
7)D 
79E 
71H 
7ol 
(HL) 
(IX+dd) 
(1Y+dd) 
A 


KXHXKXEX EX XX XX *X 


0578 
0579 
057€ 
057F 
0580 
0581 
0582 
0583 
0584 
0585 
0586 


AE 
DDAEdd 
FDAEdd 
AF 

A8 

A9 

AA 

AB 

AC 

AD 
EEnn 


XOR 
XOR 
XOR 
XOR 
XOR 
XOR 
XOR 
XOR 
XOR 
XOR 
XOR 


CHL) 
(IX+dd) 
(IY+dd) 


ETrTIMCOmD 


Annexe 8 





Lexique et index 


O Adressage : 
accès à une information. || existe des modes d’adressage : ceux-ci 
correspondent à la façon dont on yÿ accède. Par exemple, on parle 
d'adressage indirect lorsqu'au lieu d'utiliser explicitement une donnée, 
on passe par un intermédiaire la contenant. Cet intermédiaire peut être 
soit une case mémoire soit un registre. 


CO Adresse : 

nombre de 16 bits (sur le Z-80), ou plus, permettant de repérer une case 
mémoire. Chaque case mémoire est en effet numérotée. La première est 
0, la dernière sur le Z-80 est 65535. Sur un microprocesseur 8 bits, une 
adresse est codée sur 16 bits de façon à accéder à 64 Ko. Sur l'Amstrad, 
il existe parfois des adresses de 24 bits, indiquant les ROM ou RAM 
parallèles disponibles (par ce moyen, le Z-80 peut accéder à plus de 
64 Ko de mémoire, ce qui n'est théoriquement pas possible). Des 
circuits spécialisés connectent les RAM ou ROM visées, et l'on peut 
ensuite accéder, dans les 64 Ko ainsi “visibles” du Z-80, à n'importe 
laquelle des 65536 cases. 

Par abus de langage, on appelle également adresse n'importe quel 
nombre de 16 bits, même s'il n'est pas destiné à représenter une case 
mémoire. On peut dans ce cas parler de mot afin d'éviter les confusions. 
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D Appel : 
en langage machine, un appel provoque l'exécution d'une routine. 
L'appel en Z-80 se nomme CALL, en Basic GOSUB (ou CALL également 
pour un appel de routine en langage machine). Une fois l'exécution de la 
routine achevée, celle du programme appelant se poursuit à l'endroit 
suivant le CALL. 


D Attribution de registres : 
étape de la programmation “Top-Down” en langage machine. Cela 
consiste à attribuer aux différents registres disponibles un rôle particu- 
lier lors des calculs. Cette étape évite les erreurs d'étourderie. 


[ Binaire : 
mode de calcul en base 2. Les deux chiffres sont 0 et 1. Le binaire 
constitue le langage de compréhension du processeur : la plupart des 
opérations travaillent en binaire. 


O Bit: 

unité de stockage élémentaire. Un bit permet de stocker un seul chiffre 
binaire ; il possède donc la valeur 0 ou 1. Le Z-80, ainsi que la majorité 
des micro-ordinateurs, travaillent avec des groupements de huit bits, 
appelés octets. Le Z-80 possède également le nécessaire pour travailler 
avec des valeurs de 16 bits. Un bit permet de mémoriser un nombre 
compris entre 0 et 1, huit bits permettent de stocker entre 00000000 et 
11111111 exprimés en binaire, soit 0 à 255 en décimal. Seize bits 
permettent de stocker les valeurs 0 à 65535. En anglais, bit signifie 
“Binary Digit”, soit chiffre binaire. 


[ Boucle : 

structure de programmation. Consiste à répéter une même routine, 
tâche ou instruction un certain nombre de fois. Ce nombre de répéti- 
tions peut dépendre du principe utilisé pour stopper la boucle. On peut 
boucler six fois, on peut également boucler jusqu'à ce qu'une certaine 
condition soit remplie. Pour mettre en place une boucle en langage 
machine, on utilise en Z-80 l'instruction DJNZ ou des tests suivis de 
sauts conditionnels. 


O Buffer : 
zone mémoire réservée au stockage intermédiaire de données avant un 
traitement. On détermine la taille d'un buffer par le besoin maximal 
prévu. Ainsi si l'on prévoit d'avoir de 10 à 120 octets à mémoriser, il 
faudra réserver 120 octets pour un buffer. Et cela même si dans 99 % des 
cas on ne dépassera pas 50 octets. 


O Carry: 
flag particulier présent sur tout processeur. Il s'agit d'un bit du registre 
d'état (registre F sur le Z-80) qui indique les dépassements de capacité. 
Le Carry est positionné par exemple lorsque l'addition d’un nombre au 
registre À conduit à un nombre de plus de huit bits. Ce nombre ne peut 
pas être stocké dans A (qui ne possède que huit bits), et le “1” dépassant 
est envoyé dans le Carry. 
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Compactage : 

procédure visant à réduire l'encombrement d'une table de données. On 
peut par exemple recourir à un compactage lorsqu'on stocke cent 
nombres dont les valeurs s'échelonnent entre 0 et 15 : au lieu d'utiliser 
cent octets pour stocker ces nombres, on peut en utiliser cinquante en 
stockant deux nombres par octet. 


Décalage : 

opération binaire consistant à déplacer les chiffres binaires d'un nombre 
vers la gauche ou la droite, en ajoutant un autre chiffre à l'espace ainsi 
créé. On utilise généralement les décalages dans les opérations 


arithmétiques. Un décalage à gauche multiplie par 2, un décalage à 
droite divise par deux. 


O Décrémentation : soustraction d’une unité (voir incrémentation). 


Entrelacement : 

organisation particulière du contenu de la RAM-Ecran, permettant de 
simplifier la génération du signal vidéo par le contrôleur. Les bits 
correspondant aux points ne sont pas regroupés séquentiellement. 


Flag : 

information binaire (0 ou 1) reflétant le résultat d’une opération. Le Z-80 
possède six flags, regroupés dans le registre F (deux bits y sont 
inutilisés). Ces flags sont “positionnés” (mis à 1} ou non (mis à O0) 
suivant les travaux antérieurs. Par exemple, “CP n” provoque le 
positionnement du flag C (voir “Carry”) si le contenu du registre A est 
strictement inférieur au nombre n, et sa mise à zéro dans le cas 
contraire. 


Fond (couleur) : 

le fond de l'écran est généralement représenté par le stylo 0. La couleur 
peut être quelconque. On convient donc d'utiliser une, trois ou quinze 
couleurs suivant le mode de résolution choisi, plus une pour le fond. Il 
vaut mieux dissocier le fond et ne pas le considérer comme une couleur, 
mais plutôt comme l'absence de couleur. Les traitements graphiques de 
transparence en sont facilités. 


Graphe hiérarchique : 

schéma résumant l'organisation des routines d'un programme. Ce 
graphe permet de programmer modulairement. Il est généralement 
utilisé avec les langages structurés comme Pascal, mais rien ne 
s'oppose à la programmation structurée en langage machine: la 
structuration concerne l'organisation du programme et non sa program- 
mation proprement dite. 


Hexadécimal : 

mode de numération en base 16. Ls chiffres de cette base vont de 0 à 9, 
suivis de À à F (qui représentent 10 à 15, exprimés en décimal). La base 
16 est très utilisée en langage machine pour son aspect pratique. En 
effet, un octet se représente par deux chiffres (valeurs 00 à FF), une 
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adresse par quatre chiffres. Un chiffre hexadécimal (0 à F) représente 
quatre bits, soit les valeurs 0000 à 1111. C'est exactement un demi-octet. 


© Incrémentation : 
addition d’une unité. On utilise souvent cette opération pour progresser 
facilement dans les tables de données. Si le registre HL pointe sur les 
données, il suffit d'utiliser INC HL pour progresser, sans perdre le 
contenu de A. 


O Indexation : 
adressage particulier. Du strict point de vue de la définition, le Z-80 ne 
possède pas de vraie indexation. Mais il dispose de deux registres 
16 bits IX et IY qui permettent un semi-adressage indexé. Si IX contient 
l'adresse d'une table de données, on pourra incrémenter le quatrième 
octet par une instruction INC (IX+3). 


© Interface utilisateur : 
ensemble des routines chargées de prendre en compte les actions de 
l'utilisateur (clavier, joystick, souris...) et de les fournir au programme 
dans un format pratique. On peut également considérer que les routines 
chargées de fournir les résultats à l'utilisateur en font partie. 


Q Interruption : 

événement externe au programme provoquant la suspension de son 
déroulement, l'exécution d'une routine de traitement de l'interruption, 
puis la reprise du programme. Il existe les interruptions matérielles et 
les logicielles. Les interruptions matérielles sont invisibles, elles ne 
concernent que le système. En revanche, on peut mettre en place des 
interruptions logicielles de façon à traiter des événements réguliers 
indépendants du programme. C'est par exemple le cas lorsqu'on fait 
clignoter un stylo avec deux couleurs : le stylo n’a en fait qu'une seule 
couleur. Mais une interruption logicielle est mise en place pour modifier 
celle-ci régulièrement. 


[ Kilo-octet : 

unité de mesure de capacité mémoire. Un kilo représente 1 024 octets. 
C'est bien de 1 024 qu'il s'agit et non 1 000. A l'origine de cette étrange 
unité de mesure se trouve un aspect pratique. En effet, 1 024 se 
représente par 400 en hexadécimal. C'est un nombre pratique pour les 
calculs, puisque la plupart du temps les calculs ont lieu en base 16. 
L'idée originale était de prendre le nombre hexadécimal le plus proche 
de 1000 (Kilo) et le plus pratique. Ce fut 400, soit 10241! le “K” 
s'applique également aux bits. Ainsi, les circuits intégrés mémoire 
donnent-ils accès à des bits, généralement exprimés en Kbits 
(1 024 bits). Les 4 116 sont des circuits 16 Kbits (il en faut huit en 
parallèle pour obtenir 16 Kilo-octets), les 4 164 possèdent 64 Kbits (huit 
circuits 4 164 constituent la mémoire de l'Amstrad CPC 464), et les plus 
récents, les 256 Kbits, se nomment 4 256 (voir aussi Méga-octets). 


O Lutin: voir objet graphique. 
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D Méga-octet : 

unité de mesure de capacité mémoire. Cette unité, principalement 
utilisée sur les ordinateurs à processeur 32 bits (mini-ordinateurs) ou 
sur certains micro-ordinateurs 16 bits, représente 1 024 Kilo-octets, soit 
très exactement 1 048 576 octets. En hexadécimal, cela devient 100 000 
octets. Encore une fois (cf. Kilo-octets), l'aspect pratique de programma- 
tion a prévalu. On obtient un Méga de mémoire vive en juxtaposant 
seize Amstrad CPC 464 ou 664 ! Sur les ordinateurs vraiment gros, on 
parle en Giga-octets, soit 1 024 Méga ! 


O Mémoire morte : 

on appelle ainsi un circuit mémoire non modifiable. Son contenu est fixé 
par le fabricant, sur la demande d'un constructeur de matériel. || est 
inamovible. La mémoire morte est indispensable au moins lors de la 
mise sous tension : le processeur doit avoir un programme, et il va 
chercher celui-ci dans le premier bout de mémoire qu'il connaît. 
L'Amstrad possède deux blocs de mémoire morte de 16 Ko chacun. L'un 
contient l'interpréteur Basic, le second le système d'exploitation. Ces 
deux blocs occupent les mêmes adresses que deux blocs de 16 K de 
mémoire vive. || va de soi que chaque bloc d'adresses n'est connecté 
qu'à un seul des blocs mémoire à la fois. || est possible de connecter ou 
déconnecter, en langage machine, chacun de ces blocs. 


D Mémoire vive : 
au contraire de la morte, cette mémoire est modifiable. Elle reçoit les 
informations du système, les programmes, ou les données. On peut 
réellement en faire n'importe quoi. Toutefois, une zone de la mémoire 
vive est réservée à l'écran, et quelques autres zones sont utilisées par le 
système dans sa gestion interne. 


O Mips : 

unité de mesure de rapidité de calcul. Mips signifie Million d'instruc- 
tions par seconde. Sur un micro-ordinateur 8 bits, on parle peu de cette 
unité de mesure, car il s’agit plus de milliers d'instructions par seconde. 
On se base plus sur le processeur utilisé et la fréquence de son horloge 
pour estimer sa rapidité. Un processeur Z-80 à 4 MHz représente une 
très bonne performance à ce niveau. Mais beaucoup d'autres éléments 
sont à prendre en compte (optimisation du logiciel interne, organisation 
matérielle du système, capacité graphiques, etc) pour une bonne 
évaluation. 


D Mode graphique : voir résolution. 


O Mode transparent : 
ce mode graphique de travail n'existe pas au niveau matériel. Mais il est 
facilement simulable par logiciel. Il consiste à ne pas utiliser la couleur 
de fond, et à agir comme si celle-ci était transparente. En d'autres 
termes, un point tracé avec le stylo O0 (par convention, le stylo O est 
associé au fond) est considéré comme inexistant : on ne le trace pas. 
L'avantage de ce procédé est de permettre un dessin de personnage sur 
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un décor sans effacer celui-ci. Il existe d’autres variantes du mode 
transparent : le mode XOR est le plus pratique, mais n’est pas toujours 
beau. 


D Objet graphique : 

dessin élémentaire (personnage, partie de décor.) manipulable. Sur 
Amstrad, les objets graphiques doivent être gérés par programme. On 
les inscrit généralement dans un rectangle, de façon à accélérer leur 
traitement. Certaines machines possèdent des circuits capables de gérer 
de tels objets (Texas 99/4A, Commodore 64, MSX ..). L'avantage 
essentiel est de faciliter les traitements, mais on ÿ perd parfois en 
souplesse. Sur l'Amstrad, il faut programmer la gestion complète des 
objets graphiques, ce qui autorise une définition “sur mesure”. 


D Octet : 
huit bits. L'octet est la plus petite unité mémoire accessible à un 
processeur 8 bits. Le Z-80 possède toutefois certaines instructions de 
travail sur les bits. Mais le plus souvent, un programme travaille à partir 
d'octets. Un octet permet de mémoriser les nombres 0 à 255 (00 à FF en 
hexadécimal). Chaque octet de la mémoire utilisable est caractérisé par 
son numéro, appelé adresse. 


D Pointeur : 
variable ou registre contenant l'adresse d'une information (voir indexa- 
tion, adressage, incrémentation). 


C Port d’entrée/sortie : 
élément du processeur destiné à la communication avec les circuits 
secondaires et périphériques. Ainsi, le contrôleur vidéo et le gate-array 
sont programmables grâce aux ports d'E/S qui leur sont attribués. Il en 
va de même avec la majorité des autres circuits du processeur. Le Z-80 
possède des instructions pour envoyer des données sur les ports ou en 
recevoir. 


O RAM: 
signifie “mémoire à accès quelconque” en anglais. En français, on parle 
de mémoire vive (on peut lire ou écrire des informations) ou de MEV. II 
existe d'autres versions : CRAM, notamment, qui indique une mémoire 
vive constante. Ces CRAM gardent leurs informations lorsque le courant 
est coupé (voir aussi mémoire vive). 


O RAM-Ecran : 
partie de la mémoire vive où est mémorisé l'écran. Cette RAM n'est 
guère utilisable pour y stocker un programme, encore que cela soit 
imaginable sur l'Amstrad, car 384 octets de cette RAM ne sont pas pris 
en compte. 


O Registre : 
élément de mémoire du processeur. On peut assimiler les registres à 
des cases mémoires, à ceci près qu'ils sont intégrés au processeur. Ils 
ont pour but de mémoriser les arguments des instructions Z-80. Ainsi, 
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l'instruction “LD À, (HL)" permet de ranger dans le registre A la donnée 
se situant à la case mémoire dont l'adresse est contenue dans HL. HL et 
A permettent dans ce cas précis de récupérer, dans le processeur, une 
information située en RAM externe. 


Résolution : 

capacité de l'écran, en terme d'informations. L'Amstrad possède trois 
résolutions au choix de l'utilisateur, suivant le nombre de points 
graphiques, de caractères ou de couleurs qu'il désire. 


Rotation : 
opération binaire consistant à décaler un octet à gauche ou à droite d’un 
bit en récupérant le bit éjecté de l'autre côté. 


Saut : 

opération consistant à sauter d’un endroit du programme à un autre. 
Sur le Z-80, l'instruction de saut se nomme JP. Il existe aussi JR, un peu 
différent par son encombrement mémoire, sa rapidité et son fonctionne- 
ment. Les sauts peuvent être conditionnels. Cela signifie qu'un test leur 
est associé, concernant un des flags du Z-80. Si le test conduit à un 
résultat vrai, le saut est effectué, sinon il est ignoré. 


Signé (nombre) : 

les opérations arithmétiques du langage machine nécessitent parfois 
l'existence de nombres négatifs. Or, ceux-ci ne peuvent pas être codés 
en binaire : un bit peut mémoriser un chiffre 0 ou 1, mais pas un signe 
“-", Il existe donc une convention sur laquelle l'information se base : 
celle des nombres signés. Elle indique une façon de considérer un 
nombre binaire positif. Pour une donnée “n” bits (n est 8 ou 16 en Z-80), 
“n—1" bits contiennent la valeur du nombre, le dernier bit étant utilisé 
comme signe. En l'occurrence, c'est toujours le bit le plus à gauche du 
nombre qui est pris comme signe si le nombre doit être considéré 
comme signé. Un bit à 1 indique un nombre négatif (voir l'annexe 1). 


DO Sprite : voir lutin, objet graphique. 


D Stylo : 


élément imaginaire associé à une couleur. Chaque point de l'écran est 
associé, dans la RAM-Ecran, à une valeur numérique. Cette valeur 
numérique est le numéro de stylo. Selon la résolution, l'Amstrad 
possède 2, 4 ou 16 stylos, autorisant donc 2, 4 ou 16 couleurs différentes 
sur l'écran. Le stylo 0 est généralement considéré comme celui du fond. 
Le stylo n'a aucun rapport avec sa couleur : rien n'empêche de 


programmer la même couleur pour deux stylos différents. 


Système d'exploitation : 

ensemble des routines systèmes. Ces routines donnent accès aux 
fonctionnalités de la machine (à savoir les points graphiques, les ROM 
complémentaires, les périphériques, etc). Le système d'exploitation de 
l'Amstrad remplit 16K de ROM, et est accessible grâce aux blocs de 
vecteurs, ou bien par appel utilisant une adresse de 24 bits. Bien que le 
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système soit indépendant du Basic (ce qui n'est pas le cas sur 99 % des 
micro-ordinateurs), certaines fonctionnalités du Basic sont aussi inté- 
grées dans les blocs de vecteurs, en particulier les routines de calcul en 
nombres réels. Mais le système d'exploitation lui-même ne les utilise 
pas. 


CO Top-down : 

méthode de travail. Consiste à définir le programme en raffinant ses 
tâches par étapes. On parle aussi de niveau : au niveau 0, l'analyse 
comporte les données à fournir, le travail effectué, et ce qui doit en 
sortir. Puis on prend chacun de ces éléments et on les raffine un peu, et 
ainsi de suite, jusqu'à obtenir un ensemble de tâches indépendantes, 
qu'on nomme modules. On peut alors définir les variables et structures 
de données nécessaires, et enfin programmer les modules dans l'ordre 
inverse (du plus bas vers le plus haut). Par cette méthode, on ne passe à 
un niveau plus haut que lorsque les routines d'un niveau sont toutes au 
point. La méthode TOP-DOWN vient en partie des romanciers (!) et des 
travaux de Kathleen Jensen et Niklaus Wirth, inventeurs du langage 
Pascal et de la programmation structurée. Elle est adoptée de façon 
quasi unanime en informatique à la place des organigrammes depuis 
cinq ou six ans. Le principe de base de ce type de travail est le suivant : 
dès qu'apparaît une tâche donnée pour laquelle on aimerait disposer 
d'une instruction jouant le même rôle, on remplace l'énoncé de cette 
tâche par l'appel d'un module, lequel est analysé par ailleurs. 

L'un des principes les plus importants est “analyse du haut vers le bas, 
programmation du bas vers le haut”. 


CO Variable 8/16 bits : 
emplacement fixé de la mémoire où l’on place une donnée de travail. On 
peut avoir une variable 8 bits pour stocker un octet (il suffit alors de 
réserver une adresse mémoire à cet effet) ou 16 bits pour stocker une 
adresse, un pointeur ou un simple nombre 16 bits (il faut dans ce cas 
réserver deux adresses, si possible successives). 


DO Vecteur : 

instruction de saut placée à une adresse fixée et connue. Les routines 
systèmes situées en ROM sont toutes accessibles grâce à un bloc de 
vecteurs placés en RAM lors de la mise sous tension de l’Amstrad. 
L'emplacement de ces vecteurs ne change pas quel que soit le modèle. 
L'appel d'une routine système du 464 par le biais de son vecteur aura 
donc exactement le même effet sur le 6128, même si la routine ne se 
situe absolument pas au même endroit en ROM. Une illustration 
souvent utilisée pour expliquer ce fonctionnement est la parabole 
d'Alfred, Barnabé et Christian. Alfred cherche Christian, qui peut être en 
trois endroits différents. Or, Barnabé sait TOUJOURS où se trouve 
Christian. Il est donc évident que Alfred va trouver Christian en passant 
par Barnabé. Dans l’Amstrad, Alfred devient le programme, Barnabé le 
vecteur et Christian la routine système. 


CALL basic 
CALL Z-80 
CRTC 6845 
DRAW 

EQU 
GATE-ARRAY 
LD 

MEMORY 
MOVE 

PLOT 

POP 

PUSH 

TESTE 
assembleur 
avant plan 
bits 

carry 

cercle 
collision d'objets 


complémentation 


compactage 


coordonnées (système de...) 


division 
drapeau 
entrelacement 
flags 

fond 
histogramme 
joystick 
masque 
mémoire écran 
mode XOR 
multiplication 
nombre flottant 
nombre signé 
objet graphique 
pile 

point physique 
point logique 
registre 

reg À 

reg B 

reg C 

reg D 

regE 

reg F 

reg H 

reg L 

reg | 

reg R 
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reg PC 38 
reg SP 38 
reg IX 38 
reg lY 38 
remplissage de zone 105 
résolution 17 
stylo 22 
système d'exploitation 23-58-AZ 
territoire interdit 208 
transparence 195 
vecteur 58 


zéro (drapeau) 48 


Annexe 9 





La disquette d'accompagnement 


Vous pouvez utiliser le bon de commande ci-joint (ou une photocopie) 
afin de vous procurer la disquette correspondant au livre. Cette disquette 
vous évitera les pénibles tâches de saisie des programmes. En voici le 
contenu détaillé par face. 


CO FACE A: 1) Les 18 programmes Basic des chapitres 1 à 3 sont 


2) 


3) 


4) 


5) 


contenus tels quels sur cette face de la disquette. 

La première face contient également les fichiers sources 
des 20 programmes en assembleur des chapitres 1 à 8. 
Ces fichiers sont au format ASCII et peuvent donc être 
utilisés par un assembleur quelconque. 

Un utilitaire de listage des programmes sources assem- 
bleur est également fourni, vous permettant de lister sur 
écran ou imprimante les fichiers voulus. 

Une routine supplémentaire et son programme Basic de 
mise en œuvre (ainsi que le fichier source de la routine) 
sont également proposés. Cette routine, non présente 
dans le livre, permet le défilement souple d'un message 
de 26 caractères sur l'écran. La vitesse de défilement est 
réglable. Un message exemple est fourni dans un fichier. 
Un programme menu permet de choisir parmi les pro- 
grammes de cette face l'application désirée, sans avoir à 
se souvenir du nom de fichier correspondant. Il suffit de 
demander RUN” ”. 
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D FACE B : 1) Les programmes DESSIN, IMAGECR, IMAGOBJ sont li- 
vrés sur cette face. Ils correspondent aux trois utilitaires 
du chapitre 9. Le programme assembleur du programme 
de dessin est également présent ainsi que son source, 
toujours au format ASCII. 

Les 11 programmes d'application des chapitres 4 à 8 sont 

proposés sous une nouvelle forme. Il ÿ est tenu compte de 

la structure de fichiers définie au chapitre 9. Il est donc 
possible d'utiliser chacun de ces programmes avec des 
objets et décors quelconques. Il suffit pour cela de définir 
les fichiers objet et décor utilisés avec le programme 

SETSYS. 

Le programme listeur de sources assembleur est égale- 

ment présent sur cette face. 

Un grand nombre de fichiers images sont présents sur la 

face B : 

— 3 fichiers sont destinés au programme dessin. Ils 
contiennent quelques objets, et l’image utilisée dans le 
livre (chapitres 4 à 8) assortie avec des couleurs pour 
les deux types de moniteurs. 

— 3 fichiers objets créés par DESSIN sont destinés au 
programme IMAGOBJ. Ils reprennent trois phases d’a- 
nimation d'une puce. 

— 1 fichier résume ces trois phases sous le nom PUCE. 

— 1 fichier PARAM.SYS contenant le nom de l'objet et du 
décor utilisé (remise à jour par le programme SETSYS). 

Le fichier SYSTEM.BIN contient les 12 routines LM des 

chapitres 4 à 8, routines permettant la gestion des objets. 

Enfin, un programme menu permet l'exécution de tout 

programme situé sur cette face (RUN ”). 


2 


— 


3 


_— 


4 


_— 


5 


— 


6 


— 


Sur chaque face de la disquette se trouve également un programme 
explicatif fournissant des renseignements complémentaires. Pour obtenir 
ses indications, il suffit de demander RUN'EXPLIQUE". 
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»<- Hasénesslésare iusssensamannsesseecsuucecensous seu 


Vente par correspondance 


BON DE COMMANDE 


Je commande la disquette d'accompagnement du livre: Gra- 
phismes en Assembleur sur Amstrad au prix de 150,00 FF *. 


Renvoyez-nous ce bon rempli (découpé ou copié), avec votre 
règlement, plus 10,00 FF** de frais de port et d'emballage, par 
chèque bancaire ou postal établi à l’ordre de LA CONSOLE. 
Adresse : La Console, 5, place du Colonel Fabien, 75010 Paris 


* Prix valable jusqu'au 31 décembre 1986. 
** Hors CEE, prévoyez 15,00 FF pour supplément de frais d'expédition. 





Conseils de lecture 


Pour approfondir vos connaissances en BASIC, mieux connaître le système 
des CPC 464, 664 et 6128, et maîtriser le graphisme sur Amstrad, P.S.I. vous 
propose une palette d'ouvrages utiles. 


Pour maîtriser le BASIC Amstrad : 


Ü BASIC Amstrad 1 - méthodes pratiques — Jacques Boisgontier et Bruno 
Césard (Éditions du P.S.I.) 
Pour ceux qui ont déjà pratiqué un BASIC, voici un ouvrage de 
perfectionnement au BASIC Amstrad. Un chapitre sur le CP/M 2.2 et le 
CP/M Plus donne les principales commandes systèmes. 


D BASIC Amstrad 2 - Programmes et fichiers — Jacques Boisgontier 
(Éditions du P.S.I.). 
Pour pratiquer le BASIC Amstrad, cet ouvrage donne de nombreux 
programmes de gestion, d'éducation et de jeux où le rôle des fichiers est 
expliqué et largement commenté. 


Ü BASIC plus — 80 routines sur Amstrad — Michel Martin (Éditions du 
P.S.I.). 
Pour pousser votre Amstrad au maximum de ses capacités : 80 routines 
de simulation d'instructions qui n’existent pas en BASIC Amstrad. 


Pour mieux connaître le système des CPC : 


[ Clefs pour Amstrad 1 - système de base — Daniel Martin (Éditions du 
P.S.I.). 
Mémento présentant synthétiquement le jeu d'instructions du Z-80, les 
points d'entrée des routines système, les connecteurs et brochages, etc. 
Le livre de chevet du programmeur sur Amstrad. 
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O Clefs pour Amstrad 2 - système disque — Daniel Martin et Philippe 
Jadoul (Éditions du P.S.l.). 
Ce deuxième tome consacré au système disque présente les points 
d'entrée des routines disque, les blocs de contrôle, la programmation et 
les brochages des circuits spécialisés. La deuxième partie du livre est 
aussi destinée aux possesseurs d'Amstrad 8256. 


CO CP/M plus sur Amstrad - Yvon Dargery (Éditions du P.S.I.). Toutes les 
commandes CP/M et CP/M plus pour maîtriser le système des 6128 et 
8256 : un ouvrage de référence illustré par de nombreux programmes. 


O Le livre de l’Amstrad - Tome 1 - Daniel Martin et Philippe Jadoul (BCM — 
diffusé par P.S.l.). 
Ce livre, destiné aux programmeurs des CPC 464 et 664, donne une 
étude complète de tous les circuits internes, et analyse la structure 
interne du BASIC. Vous y trouverez, en outre, une étude complète des 
RXS, et des programmes de scrolling, de traçage de rectangles, de 
coloriage de surface et de manipulation vectorielle. 


Pour concevoir et améliorer vos graphismes : 


Ü Mathématiques et graphismes — Gérald Grandpierre et Richard Cotté 
(Editions du P.S.l.). 
De très beaux graphismes sont générés par des équations mathémati- 
ques. L'univers des fractals, les déformations et les enveloppes, les 
surfaces en 22 sont étudiées dans ce livre très pédagogique et de haut 
niveau. Tous les programmes, écrits en BASIC standard, sont facilement 
adaptables au BASIC Amstrad. 


O Création et animations graphiques sur Amstrad CPC -— Gilles Fouchard 
et Jean-Yves Corre (Éditions du P.S.l.). 
Dessiner avec la souris ou le joystick et apprendre à faire des scrolling, à 
fabriquer une gomme, à inverser une image ou à l'éclater en une 
myriade de points, tel est l'objectif de ce livre écrit en assembleur 
Amstrad. 
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Votre avis nous intéresse 


Pour nous permettre de faire de meilleurs livres, adressez-nous vos critiques sur le 
présent ouvrage. 


— Ce livre vous donne-t-il toute satisfaction ? 





Si vous souhaitez des éclaircissements techniques, écrivez-nous, nous ne manquerons 
pas de vous répondre directement. 


Où avez-vous acheté ce livre ? 


Û cadeau O librairie Ü autres 
C exposition boutique micro 

Comment en avez-vous eu connaissance ? 

O publicité C catalogue [ autres 
Ü exposition Ü conseils d'un ami 


Avez-vous déjà acquis des livres P.S.I. ? 
Lesquels 7 mie AN DU A Me naar 





NOM een en Prénom... ets 8. 00: 
AdrôSSé Un ae te PS A ER TT LP ERRES LA 
PrOTBSSION SL nn DE A Den 


Centre d'intérêt ns 


CATALOGUE GRATUIT 


Vous pouvez obtenir un catalogue complet des ouvrages PSI, sur simple demande, ou en retournant 
cette page remplie à votre libraire, à votre boutique micro ou aux 


Editions du PSI 
BP 86 
77402 Lagny-sur-Marne Cedex 





C: ouvrage est destiné aux possesseurs de CPC 464, 664 et 
6128 qui souhaitent programmer des applications graphiques en 
assembleur. 


ane en bein ec den col 
nombreuses façons de progresser, grâce à des routines prêtes à 
l'emploi et compatibles entre elles. Ces routines sont toutes livrées 
sous la double forme d'un programme Basic et d'un listing 
assemblé : vous pourrez ainsi les utiliser avec ou sans programme 
Assembleur. 


Goo en assembleur vous propose de créer des 
graphismes très variés sur votre Amstrad CPC : tracé 
d'histogrammes, création d'une corne d'abondance, dessin d'un 
paysage avec zones réservées, et animation d'un module dans ce 
paysage n'auront plus de secret pour vous. Ces techniques 
graphiques vous permettront d'illustrer vos jeux d'aventures ou de 
rôle, et de maîtriser parfaitement toutes les possibilités graphiques 
de votre machine. 


9° 782865 953400 


ÉDITIONS DU P.S.I. 
BP 86 - 77402 LAGNY S/MARNE CEDEX - FRANCE 


ISBN : 2 86595-340 8 145 FF 
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